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'® ALL RIGHTS RESERVED. 
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FACILITY: FI1ACP Structure Level 2 
i ABSTRACT: 
This module contains the code and tables to process the read 
and write attributes functions. 
i ENVIRONMENT : 
STARLET operating system, including privileged system sorwteae 
| 
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and internal exec routines. Th:s routine must be execute 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 6-Jan-1977 21:05 
i MODIFIED BY: 


v03-042 CDS0011 Christian D. Saether 30-Aug-1984 
Change yor: of refcnt A primary. fcb during fid_to_spec 
so that err_c cerup cant ix if it nécessary. Also change 


as at end of routine. 
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RWATIR 1b-5 -Sep-1984 VAX=11 Bliss-32_V4.0-742 Ri 
v04-000 8ep-1984 9}: 83:4 DISKSVMSMASTER:CF1 tix “SRC IRWATTR.B32; Ys of ve 
3 2 38 1! v03-041 ay * L. Mark Pitent. 21-Aug-1984 9:41 : 
; ie: t caused memory 9 get overwritten when doing : 
: 60 ; 4 "3 te 9 te spec with tong directory names. | : 
; 6¢ 1 i v03-040 ¢DS0010 Christian D. Saether 16-Aug-1984 | ; 
= - 1: Set SLY MARKFCBSTALE fleg when modifying protected : 
; ¢: : ! } attributes. | : 
: 66 6 1/ v03-039 cDs0009 Christian D. Seether —7-Aug-1984 | 
.: & a So Clean out directory index when turning off directory ; 
; eB Bo8 : flag in the header. : 
; $3 01: v03-038 LMP0295 L. Mark Pilant, 6-Aug-1984 16:52 : 
aie 071 1! poresetty return the binary version number for files with ; 
ih BAG sar : 
> 74 0074 1} VO3~037 LMPO2BS | L. Mark Pilant, 26-Jul-1984 12:26 : 
Ae Bpee 1! that caused a ''?" to be added to the name if it : 
; f 8078 : } be 9° c aracters lone. : 
: 78 0078 1: V03=036 ACG0439 Andrew C. Goldstein, 20-Jul-1984 16:03 ; 
: 6 it : Make BYPASS priv allow change owner operations a 
; BI 0081 1/ v03-035 ACG0437 Andrew C. Goldstein, 13-Jul-1984 15:11 $ 
; ¢& ie 1! Add FCB arg to CHANGE OWNER: remove ERR_ bx? calls from 3 
Ya 0083 1 i CHANGE _OWNER and CHANGE CLASS. ; 
; 85 0085 1: v03-034 LMPO259 L. Mark Pilant, 25-Jun-1984 11:39 ; 
; 86 Bo86 1! If the user requests the matchin . ace fo be returned, 3 
; fi aie : } clear out the unused portion of the ACE. ; 
; (89 089 1 v03-033 cDS000 Christian D. Saether 15-May-1984 ; 
: + B20 ' CDS0007 was mot quite right. Fix it. : 
: 36 0092 1! v03-032 CDS0007 Christian D. Saether 11-May-1984 3 
: + B87 : Don't bugcheck if there is no primary_fcb in fid_to_spec. : 
: 95 095 1 v03-031 CDS0006 Christian D. Saether 3-May-1984 : 
; 38 04) 1: Bump refcnt in fcb when letting go of serialization : 
: +44 sad : lock in fid_to_spec. : 
: 99 0099 1! vO3-030 cDs0005 Christian D. Saether 19-Apr-1984 : 
3; 100 100 1! Use REFCNT instead of ACNT where appropriate | 3 
; 13) 101 1! Use LOCK =fount routine to determine if file. is accessed ; 
3 7 ¢ 1 ; 1: anywhere in possible cluster. 3 
3 37 ; : Remove check for erroneous acl status. : 
: 105 105 1! vO3-029 LMPBUILD . Mark Pilant ners -1984 14:12 ; 
: 106 106 1 | initialize STATUS to be SS$-NORMAL in URITE-ATTRIBUTE. ; 
: 108 108 i V03-028 ACG0415 Andrew C. Goldstein, — 9-Apr-1984 11:02 ; 
; 109 1 ,: Add call to rebuild file ACL after modifying; fix : 
; 110 110 171! access mode ATR probing; maximize the access mode protection : 
: 6111 1171: («717:! against mode of the ca ler; correct all error exits to | : 
3 6 118 1: 9° through the cleanup code; support extended file name 3 
: iF 11? ' n ident area. : 
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v03-027 LMP0221 iF Mark Pil 
Support an ORB within an FC 


v03-026 ACG0412 Andrew C. Goldstein, 
Implement agent access mode eupeers: add 
protection check call. Also make 


v03-025 ACG0410 Andrew C. Goldstein, 
Add support for access mode attribute to 
n 


nt, 


et ed ed ed 


also check for file open in CHANGE_CLASS 
v03-024 three Andrew C. Goldstein, 
Fix handling of file headers in CHANGE_O 


also pull obsolete handling of exception 
obsolete access mask attribute. 


v03-023 LMP0203 L. Mark Pilant 
Add support for FiB$V_PROPAGATE. 


v03-022 CDS0004 Christian D. Saether 
Serialize correctly tracking up through 
in the FID_TO_SPEC routine. 
Replace FLOSH_FID with TOSS_CACHE_DATA. 
L. Mark Pilant, 


v03-021 LMPO195 
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requestor’s rights list. Also, tie off 


changes. 

v03-020 ¢CDS0003 Christian D. Saether 
Use BIND_COMMON macro to reduce external 
COMMON declarations. 


v03-019 CDS0002 Christian D. Saether 


v03-018 CDS0001 Christian D. Saether 


1eBeo-1984 91:94:) 


NO_LCKCHK is now a byte instead of a word 


1-Apr-1984 15:42 


22-Mar-1984 18:28 
access mode to 


rest of global storage based. 


22-Mar-1984 13:45 
probe buffers; 


16-Mar-1984 15:15 
WNER; 
vectors and 


9-Mar-1984 16:18 


29-F eb- 1984 
backlinks 


27-Feb-1984 14:38 


Modify the a | ownership changes to allow use of th 
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e 
classification 


19-Dec-1983 


14-0c t-1983 


27-Sep-1983 


4:1 VAX-11 Bliss 
0 DISKSVMSMAST 


Set flag to disable lock basis checking for now 
when reading headers for back Links. 


V03-017 LMP0149 L. Mark Pilant, 88-Sep-1983 13:26 
Correct a logic problem that caused problems during the 
protection check of a write attribute operation. so 

ix up the directory spec returned for implicitly spooled 
es. 


v03-016 LMP0141 L. Mark Pilant, 24-Aug-1983 3:10 
Return '?" for a zero back-Link only if a non-zero Link was 
previously seen. 


v03-015 LMP0131 L. Mark Pilant enhuge 1965 11:06 
Check for a minimum attribute (ength when writing the 
reserved area of the file header. 


v03-014 LMP0129 L. Mark Pilant, 25-Jul-1983 11:51 
Return the correct directory name for files in the MFD. 
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Add table entries for several new attributes. Also, fix a 
problem with issuing read type ACL attributes during a write 
attribute operation. 


Sep-1 04:1 VAX-11 Bliss-32 V4.0-742 4) 
-000 16- sen-1984 9339534 : DISKSVMSMASTER:CF11X.SRCIRWATTR.B32; (a9 "aD 
178 1 v03-013 LnPot29 L. Mark Pilant 2-Jun-1983 8:41 
12? : Correct the sizes used for the “ACL attributes. 
175 1 v03-012 ACGO0338 Andrew C. Goldstein, 1=Jun-1983 17:21 
178 ; Fix attribute control table change 
178 1 v03-011 LMPO113 Mark Pilan 10-May-1983 13:38 
122 ; Add support for Fip to siia-nese translation. 
181 1 v03-010 LMPO0110 L. Mark Pilant, 35-May-1983 12:46 
1 § 1 Add support for access allowed, privs used, and ACE used 
; ; to gain access. 
185 1 v03-009 $TJ3096 Steven T. Jettreys 29-Apr-1983 
Make PA2SM.. NOCHARGE a protected file cherecteriatic. 
: , v03-008 LMP0105 L. Mark Pilant, 26-Apr-1983 16:18 
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1 1 
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» oF 
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1! 
Bae 
BB 
z ae 
38 § 38 1 v03-007 ACG0329 Andrew ¢ ot stein Savage t905 13:59 
3% 0 3% : Fold Long UIC's into (377, for 16 bit Ul 
96 0 96 .% v03-006 $1/3078 Steven T. Jeffreys, 26-Mar-1983 
44 0 44 : } Add support for the SIGHUATER mark. 
99 § 99 1! v03-005 LMP0088 L. Mark Pilant 16-Mar-1983 15:18 
00 0200 1! Add support for reading a single ACE and reading and writing 
os 8 4 : : the reserved area in the file header. 
08 0 88 1 v03-004 ACG0306 Andrew C. Goldstein, 13-Dec-1982 14:36 
Be 8 Be : } Get rid of obsolete file structure names 
06 0 06 1/ v03-003 LMP00S4 L. Mark Pilant, 25-Oct-1982 17:05 
34 8 BS : Add a new attribute to return the ACL Length. 
09 0209 1} v03-002 LMP0045 L. Mark Pilant, 21-Sep-1982 13:10 
19 8 19 : : Call the ACL dispatcher in kernel mode when uriting attributes. 
i 0 \¢ 1! v03-001 LMP0036 L. Mark Pilant, 29-Jun-1982 16:25 
17 1 : } Add support for Access Control Lists. 
15 19 1! V02-013 ACG43657 Andrew C. Goldstein, 17-Feb-1982 19:14 
1 18 oe Fix bug in peresdiag s primary header after changing file owner 
i 0 ! ' } ft a multi-header fil 
19 i§ 1 i v02-012 ACG0253 Andrew 7 Goldstein, 18-Jan-1982 16:30 
31 y : Add dummy HDR1 accessibility attribute 
5 3 1/ v02-011 acco241 Andrew C. Goldstein, | 11-Dec-1981 22:32 
? t : : Force RMS directory cache flush when directory bit is cleared 
5 5 171i v02-010 acG0232 Andrew C. Goldstein,  4-Dec-1981 16:43 
§ $ \ Protect HIBLK during write attributes operation 
8 81: 


v02-009 ACG0229 Andrew C. Goldstein, 11-Dec-1981 0:38 
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CONVERT_DATE : LINORM WOVALUE, © i convert string date to 64 bit 
CHANGE _OWNER : LUNORM, change file owner UIC 
CHANGE _CLASS : LUNORM; ! Change file classification 


v04 | 
: 9 8 } } Add full counts and 1/0 counters to stat block 
; 231 11: v02-008 ACG0221 Andrew C. Goldstein 30-Oct-1981 18:04 
; : : ' Add attribute for journal control flags 

; 4 1: v02=007 ACGO196 Andrew C. Goldstein, — S-Mar-1981 16:32 | 
; 5 5 ! } ix file header Length checks 

: § 1/ v02-006 spheddag Andrew C. Goldstein, 16-Feb-1981 11:25 
3 ; $ ; Remove old security mask field 

: 26 40 13 v02=005 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:27 

; 4 41 Previous revision history moved to f11B8.REV 

: 26 rk . 

3 44 44 «1 

$ 45 45 1 LIBRARY bo at peer’ r BaSst -L32'; 

: 46 $8 1 REQUIRE ‘SRCS:F 

3 47 1 1 

3 48 1238 #1 

3 49 1239 1 FORWARD ROUTINE 

: 50 1240 1 READ_ATTRIB : L-NORM, ! read attributes 

$ 51 1241 +1 FID_TO_ SPEC : L-NORM NOVALUE , ! convert FID to file-spec 

; 25 ! ¢¢ ! READ_HANDLER : NOVALUE, ! read attributes vendieten handler 

; 12464 1 

3 1245 1 

3 1246 1 


rons 


WRITE_ATTRIB |=: L_NORM NOVALUE, ! write attributes 
| 
| 
| 
| 
| 
| 
| 
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version 


type & 
rsion number 


le owner, 


file owner UIC 


file 


8 file name, type, version 
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al attribute code 


e co 
build statistics block 


m block size 
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nore attribute 


byte 
blank values attribute 


Access Control List 
Reserved area 


le 
access mode protection of file 


zero valued attribute 
internal file name 


medi 
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Classification mask 


buffer access mode 
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ASC 
rev 
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= 20; 
. LOC 
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CATER 
LNAM 
LTYP 
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WORD 
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ACT_LASTACT 
NULL_FIELD 
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FH2$R_CLASS_PROT, 
FIELD, 
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HEADER, 
ZERO, 


22 O00 Z002Z2222000000 000 ++ 


RO, 
! highest attribute code 
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E 
= ATRSC_MAX_CODE; 


MASK, 
5 
BACKLINK, 
: BBLOCKVECTOR (8); 
5 = FH2SH_CONTIG 
OR FHO$SM~ SPOOL 
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RWATTR 16-Sep-1984 01:04:1 VAX-11 Bliss-32 V4.0-742 Page 10 
v04=000 yergeen18Be PbiGids | WN dimhAS Tease! igs one arwarre.e32:1°%° «49 
: : ? 1? 1 ! GLOBAL ROUTINE READ_ATTRIB (HEADER, ABD) : L_NORM = 
ie ir 
H ; s | 
3 2 8 1? 5 ! FUNCTIONAL DESCRIPTION: | 
: 439 14 $ 1} This routine performs the read attributes function. The 
: at 1 8 ! } requested attributes are assembled into the buffer packet. 
: 64 1430 1 | CALLING SEQUENCE: 
i 443 14 1 | READ_ATTRIB (ARG1, ARG2) 
: 445 1433 1 | INPUT PARAMETERS: | 
; 646 1434 1! ARG1: address of file header 
; ri 1 5 ! } ARG2: address of buffer descriptors 
: 449 14 : 1 ' IMPLICIT INPUTS: 
; 45 1438 1! I0_PACKET: 1/0 re for this operation 
3 $23 1tzp : PRIMARY _F CB: FCB of file 
; re 1441 1 | OUTPUT PARAMETERS: 
; rte re ! } ARG2: address of buffer descriptors | 
; 496 1444 1 | IMPLICIT OUTPUTS: 
: O88 1066 1 | — | 
: 459 1409 1 | ROUTINE VALUE: 
: 460 1448 1! f successful | 
ae ie pp ah ew 
: 46 1451 1 1 SIDE EFFECTS: | 
: 464 e236 1! attribute data written into buffer packet 
; 666 1454 1 !-- 
; 467 1455 1 
; 468 1628 BEGIN 
: 2% 1288 3 MAP | 
: 471 1459 3 HEADER : REF BBLOCK, ! file header arg 
; 47 1460 ABD : REF BBLOCKVECTOR C,ABD$C_LENGTHI; 
: 47 1461 ' buffer descriptor arg 
: Ate 1488 Foca | 
> 476 1464 LOCAL_HEADER : REF BBLOCK, ! local copy of the header address 
3; 477 1465 ACCESS_MODE, ' access mode to set for attribute buffer 
3 +78 1608 STATUS: ' routine exit status 
; 480 1468 2 BIND_COMMON; | 
; 486 1290 EXTERNAL ROUTINE | 
; 48 1471 PMS_START_ SUB L_NORM, ! start subfunction metering 
3; 484 1676 “END SOB L-NORM, ! end subfunction metering 
; 485 147 E L-NORM, ' convert 64 bit time to ASCII 
; oe 1608 MAKE _NAMEBLOCK : L_NORM, ' convert file string into RAD-50 
; 4 147 ACL_BISPATCH L=NORM; ! ACL action dispatcher 
3 oes 1676 
; 489 147 


12 
1b-3¢ 1984 01:04:1 VAX-11 Bliss-32 V4.0-742 Pa 1) 
1 =3007 1383 9359534 DISKSVMSMASTER:CF11X.SRCJRWATTR.B32; 1 = | 
ENABLE READ HANDLER; 
| 
Start metering for this subfunction., 


PMS_START_SUB (PMS_RWATT); 


STATUS = 1; ' assume success 
LOCAL_HEADER = ,HEADER; ! Copy header address 


! Set the buffered read bit in phe 1/0 packet to indicate to IO_DONE that 
the attribute buffers are valid. 


10_PACKETCIRPSV_FUNC] = 1; 
ACTESS_MODE = .TO_PACKETLIRPSV_MODE); 


! Scan the buffer packet, tg up each entry. The first oyte of the 
! text is the attribute code, and must be overwritten with the access 
mode of the request for the 1/0 completion processing. 


INCR 1 FROM ABDSC_ATTRIB TO .10_PACKETCIRP$W_BCNTJ-1 DO 


LITERAL 
ATB_LENGTH = FI2SS_FILENAME+FI2$S_FILENAMEXT; ! Length of temp attribute buffer 


LOCAL 
Pp 


' temporary pointer 

' attribute size desired 
' address of attribute 

!' attribute code 

max size of attribute 


} 
! pointer to attribute text | 
: REF BBLOCK, 


: BYTE, ! code of action routine 
NAME BLOCK : BBLOCK CNMBSC_LENGTH], ! buffer for file name block 
ATT_BuFFER : BBLOCK CATB_LENGTH]; ! buffer to build reformatted attribute text 
-ABDC.1, ABDSW_TEXT] + aget.t. ABDSW_TEXT); 
7 = .ABOC.1, ABD$W_COUNT); 
.(.P)<0,8> = 1; 
B= .ACCESS_MODE; 


! Check the attribute code for legality, and then check the requested 
! size against the Limit. If an error exit is made, first truncate the 
! descriptor count to inhibit return of the unprocessed descriptors. 


ETCIRP$W_BCNT) = .1; 
ATUS (SS$_BADATTRIB); STATUS = 0; EXITLOOP); 
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v04-000 er8ep- 1882 93:90:03 «BT RSinGhaSfencch tik. sre aewarre.e32:9°% 5 

; 547 1535 MAX_COUNT = .ATCC.CODE, ATC_MAX_SIZE); ; 
; 48 1 § IF [COUNT GTR .MAX_COUNT | : 
; 9% 1 THEN : 
3 0 1 4 BEGIN § 
; 1 4 10. PACKETCIRPSW_BCNT) = .I; ; 
; 134 (ERR, STATUS (SS$_BADATTRIBS; STATUS = 0; EXITLOOP); | ; 
Py Ps | ° 
; 38 18¢§ | 
; § : te } Get the action routine code first. : 
; 154 , F 
; 53 cf ACTION = .ATCC.CODE, ATC_ACTION]; | : 
: 561 1 rk ! Compute the address of the attribute. 3 
3 Hee : 
: 564 1 ADDRESS = : 
; 565 1553 4% ; 
; 66 1334 4 CASE gATCL. CODE, ATC_LOCATION] FROM 0 TO ATC_LASTATC OF | ; 
: 568 1556 4 ATC_ZERO): ATT_BUFFER; ; 
; 569 1557 4 ATC-FCB): PRIMARY _FCB; : 
; 570 1558 ATC"HEADER): BEGIN F 
: 571 1559 IF .ATCC.CODE, ATC_OFFSETJ : 
: 578 1560 + .ATCE.CODE, ATC~DATA SIZE] GTRU : 
B. = Sr 1561 -LOCAL_HEADERCFA2$B8_IDOFFSETIJ*2 | : 
; 574 1206 THEN ACTION = ACT 0; $ 
; af? 13¢7 ? .LOCAL_HEA : 
: 577 1565 5 CATC_IDENT): BEGI ; 
: 578 166 5 IF .ATCC.CODE, ATC_OFFSET) : 
; 579 1567 5 + .ATCC.CODE, ATC"DATA SIZE) GTRU ; 
; 580 1568 5 wl -HEADERCFR $B_MPOFFSETJ*2 : 
; 281 1569 = .LOCALHEADERLFH2$B_IDOFFSETIJ*2 ; 
3 og 1570 THEN ACTION = ACT_ZERO; 3 
; 58 1371 ; LOCAL HEADER + ,COCAL_HEADERCFH2$B_IDOFFSETI*2 : 
; 3s 1378 4 ATC_MAP): -LOCAL_HEADER + .LOCAL_HEADER[FH2$B_MPOFFSET]*2; : 
; 586 1574 4 ATC"ACLI: .LOCALZHEADER + .LOCAL"HEADER[FHOSB_ACOFFSETJ*0; ; 
; 587 1575 4 ATCIRESERVED]: .LOCAL-HEADER + .LOCAL-HEADERLFH2SB_RSOFFSETJ*2; : 
; 38 1376 ATC~ACPGBLJ: (CASE zat -CODE, ATC_OFFSET) FROM O TO GBL_LASTGBL OF : 
; 290 1378 FOBLpRV}: PRIVS USED; : 
; 591 1579 6 GBL_ACEJ: BEGIN 3 
; 39¢ 1580 6 CHSFILL (0, ATRSS_READACE - .MATCHING ACECACESB SIZE, | : 
; 59 1581 6 MATCHING_ACE + .MATCHING_ACECACE$B_SIZE)); | : 
; 3 138¢ $ MATCHING_ACE | : 
; 96 1384 TES) = .ATCL.CODE, ATC_OFFSET); | : 
; 59 1585 CATC_F ID2NAME): BEGIN ; 
; 598 1386 FID_TO_SPEC (.LOCAL HEADER); | : 
; 599 15 LOCAL _READER = .FILE_HEADER; : 
; 600 15 3 FILE_SPEC_LEN 3 
; 601 1589 4 END; ; 
; 60 1 0 4 TES 3 
; 60 1591 4 ) ; 
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; Routine Size: 
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; pS 179) ! GLOBAL ROUTINE FID_TO_SPEC (HEADER) : L_NORM NOVALUE = 

3 ) 1598 1 e+ 
; 80 1794 13 
: BB 1732 ! FUNCTIONAL DESCRIPTION: 
$ B19 1799 1 i This routine converts the specified file-I1D (contained in the header 

; 811 178 ii syprited) to a full file specification, Because the RMS Limit of 
3 aig 1799 1} bytes is NOT enforced, it is actually possible to get a tile 
: ai? 1300 ! spec string of 444 bytes. 

3 HE 1802 1 If a file pointed fo by the backlink does not exist, translation 

; 816 1805 1! stops, and a question mark is inserted in place of the directory 

s B87 1804 1! name. 

3 a8 1805 1! 

; 819 1806 1} CALLING SEQUENCE: 

; 820 1807 1! FID_TO_SPEC (ARG1) 

; 821 1808 1: 

: as¢ 1809 1 |! INPUT PARAMETERS: 

; Be 1810 1! ARG1: address of the file header | 
; 824 1811 1: 

; 825 11g 1 | IMPLICIT INPUTS: 

; 826 1813 1: none 

3 tH 1814 1! 

; 828 1815 1! OUTPUT sgt gen 

3 4 1816 1! no 

; 830 1817 1: 

; 831 1818 1 | IMPLICIT OUTPUTS: 

; S36 1819 1 none 

; 83 1820 1 | 
; 834 1821 1! ROUTINE _WALUE: | 
; 835 1Ss¢ 1 i 

; 836 18 1 i 

3 8357 1824 1 | SIDE EFFECTS: 

; 838 1825 1! none 

; 839 1826 1! 

; 840 1827 1 i- 

: 841 1828 1 

: 84 1829 BEGIN | 
; «(84 1830 | 
> B44 1831 MAP 

; 6845 1336 HEADER : REF BBLOCK; ! Address of the header 

: 846 183 

: 847 Ieee LINKAGE 

; 848 1835 L_CVT_DEVNAM = JSB (REGISTER = 0, ! Buffer length 

: 849 1836 REGISTER = 1, ' Buffer address 
; 850 183 REGISTER = 4, ' Cluster node conversion flag 
; 3851 1838 REGISTER = 5; ' UCB address 
; 26 1839 REGISTER = 15; ! Length of converted name 
; 8 1840 
: 854 1841 LITERAL 
; «855 Hoi NODE _LEN = 15, ! Maximum cluster node {none ,tenath 
; 2$ 184 DEVNAME LEN = 15, ' Maximum dey! ce name Length 
; «85 1844 UNIT 1 z ' Maximum yn t number length 
; 858 1845 FILERAME_LEN = 39, i Maximun file name Lengt | 
; 859 1308 FILETYPE LEN = 39, ' Maximum file type length | 
; 860 184 FILEVER_CEN = 5, ! Maximum version lengt | 
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! The maximum number of directory levels to traverse is calculated from the 
! available storage (for FULL_FILE_SPEC). 


MAX_DIR_LEVEL = (1022 = (NODE_LEN + eens ME_LEN +# UN IT LEN 
FILERAME_LEN + FIL rt TYPE_LEN + FILEV VER. LEN + 1)) / 
(FILENAME_LEN + 13, 

! Determine the maximum sizes of the various portions of a file scecification. 
FULLDEV_LEN = POE ae LEN + 1 + : OP, ne device spec length 
FULLDIR_LEN = 1+ ( o D * (MAX_DIR LEVEL + ie ! Max dir spec Length 
FULLFILE_LEN = FILENAM ' Max file name Length 

LETY ! including type & version 

LEV 

+ F 

LLD 

LLF 


ER_LEN, 
ULCDEV. LEN + ' Maximum file spec Length 
ILE te tens i Includes word size prefix 


ao 


~ 
WN "SO OCOnNOuUSWN—OO@W 


DE 
1 
FI 
FI 
FI 
FULLSPEC_LEN =2 
FU 
FU 
LOCAL 
' Length of the device name 
: REF BBLOCK, i Current directory file header 
: REF BBLOCK, i Address of header ident area 
: BBLOCK CFIDSC_LENGTH], ! Directory FID 
! End of the directory/file name 


SPSS SSVSSSSHAVVOSSCSCS 


yer et PPP PNP, 


BIND_COMMON; 


EXTERNAL ROUTINE 
READ HEADER : LLNORM, ' Read & validate file header 
SERIAL_FILE L -NORM, Synchronization Locking 
RELEASE, SERIAL _LOCK™ L_NORM N OVALUE, Relea synchronization Lock 
TORscvi “DEVNAM” : Levit _DEVNAM ADDRESSING “MODE. (GEN RAL); 


BIND 


G89 09 09 C9 SI NIN SI NN NNN IPA AAA AAA AA MMIII III 


SSLSSRANLSSSVSAEAN HS SONAR INI OO WHF ae SOO er nd Dee 


-BYTEJ, ! Device name spec 
verre "C,BYTE), ! Directory name sto) 
name storage 

J : VECTOR f BYTET: 


nnn 
i De | 
ccc 
am, a 
wean 


FILE_SPEC : V 
FILE-SPECCFULLDEV_LE 
FILE-SPEC FULLDE Y= -tE 


E 
N 
N 
FULLDI N 


! Initialize all of the necessary storage. 

CHSFILL 0 ony tart LEN PULL Fate 

CHSMOVE pst GENGTR, HEADERLFH2SW ~BAEKLINK?, DIR_ID); 

FILE OPEC. dit 1) 

' Save the file name from the current file header as the real file name. 


IDENT AREA = HEADER + c BENT ARERE 1DOFFSETI*2; 
CHSMOVE enlfiota neorrse by DENT AREA Fl 2st FILENARE FILE_NAMEC1]); 


I pNEADERLF FSET 15 
EOFFSET (FI2$T_ FILE ARE pene : ner LENAMEXT 3 
att th E (FIl2$s FAgT ELEM IDENT AREA |! ih ri TENAREXT! 
ExT 


S32 


COOOOOOOCOO@WMMc 


FILE _RAMEC 4): 


a J FROM 0 TO FI2$S_FILENAME + FI2$S_FILEN 


OO CO CO 09090000 00 0d 09 00 00 09 0 00 0D 0 OD 09 0D CD OD CD CD 0D CD CD CD CD CD Cd CD CD CD 0D CD CD CD CD CD CD CD COD CD CD CO CD CO CD CD CD CD CD CD 
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3 218 1905 BEGIN $ 
; 91 1 IF .FILE_NAMEC.J + 1) EQL_‘ * THEN EXITLOOP; 3 
; 920 19 FILE_NAMECO] = .FILE_NAMECO] + 1; 3 
; 4 1 1398 END; : 
: 9 : 191 ! Loop through all of the directories back to the MFD, saving the directory : 
; 924 1911 ' names. 3 
; 925 1318 ! Before doing so, release the current or raery lock index. This must be . 
3 F 8 191 ! done because wh ah back up through the directories for this file ; 
s ¥ 1914 ! would cause synchronization deadlocks with other processes coming down : 
3 3 1318 through the directories on an access to this same file. | : 
: 930 191 | ; 
; 931 1318 IF .PRIM_LCKINDX NEQ 0 ; 
. = § 191 AND .PRIM_LCKINDX NEQ .DIR_LCKINDX 3 
. 9 1920 THEN : 
3; § 1921 BEGIN | $ 
; 935 19 ; IF .PRIMARY_FCB NEQ 0 3 
; F 19 THEN 3 
; 937 1924 4 BEGIN 3 
; 1925 4 CLEANUP_FLAGS CCLF_PFCB REF UP) = 1; ; 
; 19 6 4 PRIMARY FCB CFCBSW-REFCAT) = .PRIMARY_FCB CFCBSW_REFCNT) + 1; : 
: 1928 : | ; 
; 1929 RELEASE_SERIAL_LOCK (.PRIM_LCKINDX); ; 
; 1330 END; ‘ 
; 193¢ DECR J FROM MAX_DIR_LEVEL TO 0 | ; 
: 1934 BEGIN ; 
3 1935 LOCAL 3 
: 949 1936 TMP INDX; | : 
: 95 1938 LF | ,D1R_1DCF1D$¥_NUM] EQL 0 AND .DIR_IDCFID$SB_NMX] EQL 0 | : 
: 95 1940 4 BEGIN | ; 
3: 9546 1941 4 IF .J WEQ MAX_DIR_LEVEL | : 
: 986 1948 3 THEN BEGIN ; 
; 95 1944 DIR_NAMEL.J * (FILENAME_LEN + 1)] = 1; | : 
2 228 1382 2 cere -J * (FILENAME_LEN + 1) + 1) = '?° : 
: 960 1967 EXITLOOP; | ; 
. : 7 
; 363 1950 IF .DIR_IDCFIDSW_NUM) EQL FIDSC_MFD AND .DIR_IDCFIDS$B_NMX] EQL 0 3 
: +e 132) AND .J REQ MAX_DIR_LEVEL THEN EXITLOOP; ‘ 
: 28 1988 ! Synchronize on the desired file prior to the read_header call. 3 
; 96 1954 : } this is actually the directory we ety have already accessed, | 3 
3 aoe 1955 ! then clear tmpindx so that we do not attempt to release it at : 
: a8 1336 ' the end of this loop. : 
: Ont 1988 3 
: 978 1989 STSFLGS CSTS_HAD_LOCK) = 0; ; 
3 th oct TMPINDX = SERIAL-FILE (DIR_ID) : 
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Se 
Ss 


ad »STSFLGS CSTS_HAD_LOCK) 


oe 
wre 


Oo 
“nN 
Now 


Save the backlink from this one to go around the loop ogaia. 
Once the temporary serialization lock is released, the buffer 


may be recycled to another process. 


$5 


sss 


ONOUS WN OOO 


CHSMOVE (FIDSC_LENGTH, DIR_HEADERCFH2$W_BACKLINK], DIR_ID); | 
IF .TMPINDX NEQ 0 | 
RELEASE_SERIAL_LOCK (.TMPINDX); | 
END; | 
| 

| 

| 


; 1 

3 1 

3; 9 1964 TMPINDX = 0; 

3 9 1965 | 
: 44 13e8 DIR_HEADER = READ_HEADER (DIR_ID, 0); 
; 98) 1308 IF .DIR_HEADER EQL 0 
oo ¢ 138 THEN 

; 9 1970 4 BEGIN 
; 9 1971 4 DIR_NAMEC.J * (FILENAME_LEN + 1)] = 1; 

; 985 1376 4 DIR_NAMEL.J * (FILENAME_LEN + 1) + 1) = ‘2°; 

3 oB8 13! 4 EXITLOOP; 
; 988 1978 IDENT AREA DIR_HEADER DIR_HEADERCFH2$B_IDOFFSETJ*2 

’ = +4 + s * e 

; 989 138 CHSMOVE (FI2$S_FICENAME, IDENT AREALE Lo8} PECENAMES© 

; 990 197 BIR _WKBE .J_* (FILENAME LEN + 1) + 13); 

; 991 1978 IF .HEADERCFH2SB_MPOFFSET) = UEADERCE NESS IDOF FSET) 

3 338 1979 GEQU (SBYTEOFFSC: (FI2ST_FILENAMEXT) + FI2SS_FILENAMEXT) / 2 

; 99 1980 THEN CHSMOVE (FILENAME_LEN = FI2$S_FILENAME, IDENT _AREACFI2$T_F ILENAMEXTJ, 

: 994 1981 DIR_NAMEC.J * (FILENAME_LEN + 1) + 

; 995 1986 FI2$S_FILENAME + 1)); 

; 996 198 INCR K FROM 1 TO FILENAME_LEN 

; WF 1984 DO 

; 998 1985 4 BEGIN 

; 999 1288 4 IF .DIR_NAMEC.J * (FILENAME_LEN + 1) + .K) EQL ‘.* THEN EXITLOOP; 

; 1000 1987 & DIR_NAMEC.J * (FILENAME_LEN + 1)] = .DIR_NAMEL.J * (FILENAME_LEN + 1)] + 1; 

3 1001 1988 END; 

; 1002 1989 | 
; 100 1990 ! If all the way back up to the mfd, stop. Release the temporary lock 

3 1004 1991 ! on the directory just looked at before exiting the loop. 

3; 1005 1396 ! 

; $09 1994 IF .DIR_IDCFIDSW_NUM] EQL FIDSC_MFD AND .DIR_IDCFIDS$B_NMX) EQL 0 

; 1008 1995 THEN 

; 1009 1208 4 BEGIN 

H 0 1997 & IF .TMPINDX NEQ 0 

3 1 1998 4 THEN 

; 4 1999 4 RELEASE_SERIAL_LOCK (.TMPINDX); 

3 4 001 4 EXITLOOP; 

; 5 Oo¢ END; 

3 § 00 

; 004 


am ea a a etd a 2“ = = 2s 2 — 9 2 
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par Ser er er Sar Ser Ser pert 


Get the device name. 


BEGIN 
PRIM_LCKINDX = SERIAL_FILE (IF .PRIMARY FCB NEQ 0 
THEN PRIMARY_FCB 
ELSE CURRENT~FIB 
IF TESTBITSC (CLEANUP_FLAGS CCLF_PFCB_REF_UP)) 
PRIMARY_FCB CFCBSW_REFCNT) = .PRIMARY_FCB CFCBSW_REFCNT] - 1; 


READ_HEADER (CURRENT_FIBLFIBSW_FID], .PRIMARY_FCB); 


FcBSu FID] 
FIBSW-F IDI); 


OOoococeceo 

WONOULSWN—O 
rtetoted 
Wwrn—Ono 


SSeS IIIS ~N 
SSSs 


oO 
co 


RETURN; 
END; ! End of routine FID_TO_SPEC 
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31 1 1OCSCVT_DEVNAM (FULLDEV_LEN Device NAME, 0, .10_PACKETCIRPSL_UCB); DEVICE_LEN); 
: 4 FILE_SPEC_LENCO] = .FILE_SPEC_LENCO] + .bevicé_LEN; 
: } 5 ! Start building the directory specification. 
:4 4 2 FULL_FILE_SPECC.FILE_SPEC_LENCO}) = 'C’; 
3 : 5 FTE EEE SEE EDS = .FILE_SPEC_LENCO) + 1; 
; 1940 5 INCR J FROM 0 TO MAX_DIR_LEVEL 
: 1 Q § BEGIN 
3 } ? ? Ath MAnE = .DIR_NAMEL.J * (FILENAME_LEN + 1)]) NEQ O 
; 1045 0 1 4 BEGIN 
: 1947 3 2 CHSCOPY (.END_NAME, DIR_NAMEC.J * (FILENAME_LEN + 1) + 1), 
: 1 035 4 .END_NAME + 1, FULL_FILE_SPECC.FILE SPEC_LENCOJJ); 
3 1909 036 4 FILE_SPEC_LENTO) = .FILE_SPEC_LENTO) + .END_RAME ? 1; 
; 1050 0 END; 
; Hed S : END; 
: 1988 oY ! Tie off the directory specification. 
: 1055 4g IF .FULL_FILE_SPECC.FILE_SPEC_LENCO] - 1) EQL 'C' 
; 1938 ot THEN FILE_SPEC_LENCO] = 7FILE_SPEC_LENCO) + 1; 
; 1058 045 FULL_FILE_SPECC.FILE_SPEC_LENCOJ - 1) = 'J'; 
; H's tf ! Now add in the file name. 
: 1 END_NAME = .FILE_NAMECO); 
; 1968 $80 CHSMOVE CEND NAME, FILE_NAMEC1), FULL_FILE_SPECC.FILE_SPEC_LENCOJ)); 
; Hse: $031 FILE_SPEC_LENTO) = .FILE-SPEC_LENCO] +” .END_NAME; 
; 1308 2088 ' Reacquire the primary header serialization lock. 
: et bee ! Turn everybody back to the primary file header. 
: 1069 056 IF .PRIM_LCKINDX NEQ 0 
+ 107 05 THEN 
3; 107 058 
31 05 
21 
3 1 
+ 
. % 
. 
3 1 
31 
. 
3 1 
3 1 
3 1 
3 1 
3 3 
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v04-000 1 =300 71382 93:95: DISKSVMSMASTER:CF11X.SRCIRWATTR.B32;1 we (B 
EXTRN READ_HEADER, SERIAL_FILE 
EXTRN RELEASE SERIAL LOCK 
-EXTRN IOCSCVT-DEVNAM 
OBFC 00000 ENTRY F1D_10_SPEC, Save R2,R3,R4,R5,R6,R7,RB,R9,= = 1791 
SE 10 ¢2 SUBL2 #16, SP : 
08 AA Sf 09 g PUSHAB §<BAsE) : 1873 
Que CA OF PUSHAB (BASE : 
59 “EA CA 3 o¢ MOVAB 58(BASE), RO : 
28 ose to SE BOOTS MOVAR  OBStROS. RIT : 1883 
0415 8F 00 6E 69 3f yA move’ #0, (SPS, #0, #1045, (R9) + 1891 
50 06 ac 0 022 MOVL. HEADER, RO * 1892 
10 AE 42. AO 06 99 6 MOVC3 #6, 66(RO), DIR_ID : 
0 BE 84 000eC CLRW  a0(SP) + 1893 
59 4 BC A 00 F MOVZBL @HEADER RO : 1897. 
4 BC4 ; 033 VAW aHEADERERO , IDENT_AREA : 
01 AB 67 14 0038 MOVC3 #20, (IDENT_AREA),~1(R11) + 1898 
50 04 aC DO 0003p VL. —« HEADER, RO + 1899) 
51 01 AO 9A 00041 MOVZBL 1(RO), R1 : 
50 60 9A 00045 MOVZBL (RO), RO ; 
50 31 50 C3 00048 SUBL3_ RO, R1, RO : 
C 50 D1 0004C CMPL RO. #60 : 1900 
8 1F OO004F BLSSU.s‘'1$ : 
15 AB 360A? 0042 8F 28 00051 MOVC3 #66, 54(IDENT_AREA), 21(R11) : 1902 
0 D4 00059 1s: CC ee : 190 
20 01 A04B O91 90058 2$: CMPB = s«W() CR11), #32 + 1906 
0A 13 00060 BEQL 3$ ; 
68 3 00062 INCB ~— (R11) : 1907 
EF 50 00000056 BF F3 00064 AOBLEQ #86, J, 2$ + 1903 
18 AA 03 0006C 3$: TSTL 4 (BASE) : 1918 
Der BEQL 3 
0004 CA 18 AA D1 00071 CMPL 24 (BASE), 212 (BASE) > 1919 
19 13 00077 BEQL 4 : 
04 BE D5 00079 TSTL  @4(SP) : 1922 
€ 13 0007C¢ BEQL 3 
01 «AA 80 8F 88 0007 BISB2 #128, 1(BASE) + 1925 
50 04 BE DO 0008 MOVL  a4(SP), RO : 1926 
18 AO B6 0008 INCW 34 (RO) ; 
AA DD OOO8A 4$: PUSHL 24(BASE) + 1929 
00006 ct 01 FB 0008D CALLS #1, RELEASE_SERIAL_LOCK ; 
A 16 D 09 5$: MOVL #22, : 1933 
10 AE a 95 6$: TSTW IR_1D ; 19 
oc 9 BNEQ : 
15 AE 9 9A TSTB DIR_1D+5 : 
07 12 00090 BNEQ $ : 
16 56 D1 009F CMPL =sCd,_-*#22 > 1941 | 
48 13 000A2 BEQL4=Séséd‘A'S: : 
38 11 OOOA4 BRB 10$ > 1944 
04 10 AE 8} Aé 7$: CMPW =s-s«@DIR_ID, #4 : 1950 
OA AA BNEQ &8$ : 
15 AE 9 AC TSTB DIR_ID+5 ; 
1 AF BNEQ : 
16 8 D 081 CMPL J, #22 ; 1951 
12 00084 BNEQ 1/8 : 


i — ESE NS O 
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Ab 0 ga 10086 8$: BICB2 #2, -90(BASE) : 1959) 
10 AE 9F OOOBA PUSHAB IR. D > 1960) 
00006 CF FB 0008 CALLS #1, “SERIAL FILE eee 
AE 0 pO 000C¢ MOVL RO, TMP I : 
03 A6 AA 1 €1 000C¢ BBC #1, -90(BASE), 9$ : 1962) 
08 AE 04 000CB CLAL = TMPINDX + 1964 
7E Be 9$: CLAL (SP) 3; 1966 
1% =A PUSHAB DIR_ID : 
00006 CF Q F D CALLS #2, READ_HEADER : 
OC AE p MOVL RO. DIR_READER : 
1 000¢ BNEG + 1968 
50 56 108 MULL3 #40, J, RO + 1971 
604 1 MOVE. #1, (RO)CRBI : 
50 36 8 3 E MULL3 4h, J, RO + 1972 
01 A04 F EA MOVE #63. 1(RO)CR8I : 
62 11 OOOEF 11%: BRB 16$ + 1970 
5 oc B A Fl 12$:  MOVZBL @DIR_HEADER RO + 1975 
5 C BES F5 MOVAW aD RIHEADERCRO , IDENT_AREA : 
50 36 : ' FA MULL3 #40,7J, R : 1977 | 
01 A048 4 DOOFE MOVC3 #20, (IDENT_AREA), 1(RO)CR8I ; 
0 04 aC DO 00104 MOVL HEADER, RO + 1978 | 
51 01 AO 9A 90108 MOVZBL 1(RO), R1 : 
50 $0 9a 0010C MOVZBL (RO), RO ; 
50 1 0 C3 0010F SUBL3 RO, R1, RO : 
C 50 Di 00113 CMPL «=soaRO,. #60 : 1979 
1F O16 BLSSU-13$ 3 
50 5 c3 011 MULL3 #40, d RO + 1981 
15 A048 | 13 28 Oo1i¢ MOVC3 #19. S4CIDENT_AREA), 21(RO)CR8) : 198 
21 01 D9 0123 138:  MOVL #1, K : 198 
50 8 ¢8 C5 00126 14$:  MULL3 #46, J, RO : 1986 
52 50 1 ci O12A ADDL3 Kk, RO, R2 F 
2€ 6248 91 001 : CMPB) «ss (R2) CRB, #46 : 
07 13 001 BEQL 15$ ; 
6048 % 001 INCB —- (RO) CRB) t 1987 
EB 51 27. £3 00137 AOBLEQ #39, K, 14% + 1983 
04 10 AE 8 00138 158:  CMPW DIR_ID, #4 : 1994 | 
14 : 013F BNEQ ‘17S : 
15 AE 95 00141 TSTB DIR_1D+5 : 
OF 12 00144 BNEQ 17S ; 
08 AE 05 00146 TSTL | TMPINDX : 1997 
2D 13 00149 BEQL 20% : 
08 AE DD 00148 PUSHL TMPINDX : 1999 
00006 CF 1 Fe 14 CALLS #1, RELEASE_SERIAL_LOCK ; 
3 11 001 168: BRB > 1996 
7E OC AE 00000062 8F Ci 00155 178: ADDL #66, DIR_HEADER, -(SP) + 2009 
10 AE 9E 6 1 : MOVC3 #6, a(SPY+, DIR_ID F 
08 AE D5 0016 TSTL. TMPINDX > 2011 
08 1 166 BEQL 18% ; 
08 AE Dd 001 PUSHL  TMPINDX > 2013 
00006 cr 1 Fe 1 CALLS #1, RELEASE_SERIAL_LOCK ; 
2 : F4 00170 18%: SOBGEQ J 19$ > 1932 
11 0017 BRB 6s : 
FFID 3100175 19%:  BRW 6$ ; 
52 90 AA 06 178 20$:  MOVL $-112(BASE), R2 > 2019 | 
1¢ A2 00 0017 MOVL  28(R2), R5 : 
3 D4 001 CLRL ORR : 
V ° ; 
51 9 DO 001 MOVL 9, RI 
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SUNWIND (DEPADR = MECH_ARGSCCHFSL_MCH_DEPTH)); 
RETURN; 
END; ! end of routine READ_HANDLER 


-000 
; $82 73 ROUTINE READ_HANDLER (SIG_ARGS, MECH_ARGS) : NOVALUE = 
: m iit 
; i 1 i FUNCTIONAL DESCRIPTION: 
: 1998 O78 1 i This routine is a condition handler for READ_ATTRIB. It catches 
> 1094 $ 1! error exits from MAKE_NAMEBLOCK (due to garbage in the file header 
; 130? 8 1 : name string) and causés them to be ignored. 
: 1999 OR 1} CALLING SEQUENCE ; 
: 1908 2 READ_HANDLER (ARG1, ARG2) 
3 7 me 
; 1100 0 1 ! INPUT PARAMETERS: 
3 1101 0 1! ARG1: address of signal array 
: 1108 eas : } ARG2: address of mechanism array 
> 1104 090 1 | IMPLICIT INPUTS: 
Hoe $921 i _— 
> 1107 093 1 | OUTPUT PARAMETERS: 
: 1109 $98 1 i — 
: 1110 096 1 | IMPLICIT OUTPUTS: 
TH yi we 
Hig 099 1 i ROUTINE VALUE: 
na Goat fe. Ag 
> 1116 10 1 i SIDE EFFECTS: 
31117 103 1! stack unwound to return to call site in READ_ATTRIB 
3 1118 104 1! 
3; 1119 105 1 !-- 
3 1120 198 1 
3; 1121 10 BEGIN 
£1138 109 5 MAP 
+ 1124 110 $1G_ARGS : REF BBLOCK, ! signal array arg 
: i ‘ 118 MECR_ARGS : REF BBLOCK; ! mechanism array arg 
: 11 11 
: 1128 114 ' Check the signal code. The galy permissible ones are SSS$_UNWIND, which 
3 i" ; 116 } is ignored, and SS$_CMODUSER. The error status is the 16° bit CHMU code. 
: 1131 11 : 
s 11 § 118 IF .SIG_ARGSCCHFSL_SIG_NAME] EQL SSS_UNWIND THEN RETURN; 
3 11 11 IF .SIG-ARGSCCHFSL yeicr NAME] NEQ S$$~ CMODUSER 
3 1" ; : 9 THEN BUG_CHECK (UNRSIGRAL, FATAL, ‘Unexpected signal name in ACP"); 
i 8 13 
: 1138 124 
3; 1139 125 
3; 1140 126 
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«EXTRN BUGS_UNXSIGNAL, SYSSUNWIND 


0000 00000 READ_HANDLER: | 
-WORD Save nothin 3 $073 | 
30 6 Ac D MOVL SIG ARGS, R ; 2118) 
00000920 &F 4 40 0 CMPL (RO), #2336 : | 
00000424 8F 04 AD : 1 CMPL fro), #1060 ; 2119) 
04 1 BEQL =s«1$ : | 
FEFF QOOIA BUGW ; 2120) 
0060* 0001C .WORD  <BUG$_UNXSIGNAL ! 4> : | 
75 D4 OOO1E 18 CLRL_ =(SP)~ 2122 

7E 08 Ac og ci ADDLS #8, MECH ARGS. ~(SP) : 
000000006 00 FB 00025 CALLS #2, SYSSONW ; 
04 0002C 28: ET 3 2126) 


; Routine Size: 45 bytes, Routine Base: S$CODE$ + 0786 
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ss 
14-Sep-1984 DISKSVMSMASTER:C 
GLOBAL ROUTINE WRITE_ATTRIB (HEADER, ABD, CONTROL_ACCESS) : L_NORM NOVALUE = 
'44 
i 


! FUNCTIONAL DESCRIPTION: 


Pose 3 
JRWATTR.B32;1. "(6 


This routine performs the write attributes function. The 
requested attributes are taken from the buffer packet. 


CALLING SEQUENCE: 
READ_ATTRIB (ARG1, ARG2, ARG3) 


i 

! 

i 

i 

i 

i 

i 

i 

' INPUT PARAMETERS: 

! ARG1: address of file header 
! pti b address of buffer descriptors 
; ARGS: 1 = check for control access to the file 
} 0 = no control access check 
! IMPLICIT INPUTS: 

: 10_PACKET: 1/0 pocket for this operation 
PRIMARY_FCB: FCB of file 

! OUTPUT PARAMETERS: 
} NONE 
! IMPLICIT OUTPUTS: 
} NONE 
! ROUTINE VALUE: 
NONE 
i 

i 

} 

le 


SIDE EFFECTS: 
_ attribute data written into appropriate places 


BEGIN 
MAP 
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ee ieee ee ee ee eee 
LLLL L000 RDM DHMH DMS AAI RAS SIS SILI OSL EE EE 
DWNAMAEWN COBO 

PRORoRoR ono onononoRoRoRoRoRoRononoRURonononononononononononononononononononunonononononononononononononoronononun) 
ee ee ee ee ee ee eee Ss 
©0009 0909 NINN NNIOAAAAPAAAAA AUN BB BEB BBB BWW AAAI 
WIR O CONO UE NAN OC ODNAU EWN 0 CDNA EWN OODNAUE WN OC DNA WN OOON 
PROROROR OPN ORORORUPONOROPOPENUPUNIIPUNIIUN 2 2 9 9 
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HEADER : REF BBLOCK, ! file header arg 
ABD : REF BBLOCKVECTOR C.ABDSC_LENGTH); 
! butfer descriptor arg 

LOCAL 

LOCAL_HEADER : REF BBLOCK, ! Local copy of the header address 

CTL_ACC_GRANTED, ! Flag indicating control access granted 

ACL-MODIFIED, ' flag Indicating ACL has been modified 

SAVE_HIBLK, ' saved copy of file's HIBLK 

SAVE_CHAR : BBLOCK (4], ! initial state of protected attributes 

STATUS; ' routine exit status | 
BIND_COMMON; 
EXTERNAL ROUTINE ; 

PMS_START SUB : L_NORM, ! start subfunction metering 

PMS-END_ SOB : LINORM, ! end subfunction metering 

CHECKSUM : LINORM, ! Checksum the header 


} 
| 
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MARK _DIRTY : LLNORM, ! mark buffer for write-back 

UPDATE DIRSEQ : L_NORM, : update uce directory sequence count 

KILL_BOFFERS : LINORM, 1 f ugh a file from the buffer cache 

KILL_DINDX : L_NORM NOVALUE ! kill directory index 

MAKE_NAMEBLOCK : L_NORM, ! convert file string to RAD-50 name block 

MAKE _STRING : LLNORM, ' convert name block into file string 

READ _HEADER : LUNORM, ' read a file header 

ACL_BISPATCH : LONORM, ' ACL action dispatcher 

ACL BUILDACL : LUNORM, ' rebuild ACL in file header 

CHECK_PROTECT =: L_NORM; ' Protection checking routine 


PMS_START_SUB (PMS_RWATT); 


LOCAL_HEADER = .HEADER; 
CTL_ACC_GRANTED = 0; 


D = 0; 
STATUS = SS$_NORMAL; ' Assume success 
| 


| 

| 

Start metering for this subfunction. 
| 


ACL_MODIFIE 

! Set the appropriate cleanup flags and save the initial state of the 
} protected file characteristics. 

CHECKSUM (.LOCAL_HEADER) ; 

MARK DIRTY ¢.LOCAL_HEADER); 

CLEANUP_FLAGSCCLF_FIXFCB) = 1; 

SAVE_CHAR = .LOCAL_HEADERCFH2$L_FILECHARI; 

SAVE-HIBLK = .BBLOTK CLOCAL_HEABERCFH2$W_RECATTRJ, FATSL_HIBLK); 


WANA POPU NIPUNNPUNINYD 2 2 PO OP Os Oe ee ~ 
FUNSSSSVEARUN LS SMVSARGNWASSRIFEARANLSS Sz 


' Scan the buffer packet, picking up each entry. The first byte of the 
r4 text is the attribute code. 
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35 

36 

37 INCR I FROM ABDSC_ATTRIB TO .1O_PACKETCIRPSW_BCNTJ-1 DO 

3 BEGIN 

40 LOCAL 

4 P, ' pointer to attribute text 

4 § T ' temporary pointer 

4 COUNT ! attribute size desired 

4 < ADDRESS : REF BBLOCK, / address of attribute 

4 ' attribute code 

4 2 MAX COuNnT, ' max size of attribute 
§ A N : BYTE ' code of action routine 

ATT_BUFFER : BBLOCK [44]; | attribute copy buffer 


P = .ABDC.1, ABDSW_TEXT] + ABDC.1, ABDSW_TEXT); 
COUNT = .ABDC.1, ABD$W_COUNT); 
CODE . 5 P)<0,6> - 1; 


' Check the attribute code for legality, and then check the requested 
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size against the Limit. 
If .CODE GTR MAX_CODE - 1 
THEN (STATUS = SS$_BADATTRIB; EXITLOOP); 
MAX_COUNT = .ATCC.CODE, ATC_MAX_SIZE); 
THEN (STATUS = SS$-BADATTRIB; EXITLOOP); 
IF .ATCC.CODE, ATC_PROTECTED) 
THEN 


BEGIN 


Most of the protected fields will affect the protection checking, so 
en eae fcbs as stale to cause them to reconstruct their fcbs from 
e header. 


CLEANUP_FLAGS CCLF_MARKFCBSTALE) = 1; 
c " uate taint AND NOT .CTL_ACC_GRANTED 
BEGIN 


Restore protected field in case the protection check fails. 


Wr—-o0on 


Cooococo~y 


ae 


CHECK_PROTECT~ (WRATT_ACCESS, .LOCAL HEADER, .PRIMARY_FCB, 
MAXU T.10_PACKETCIRPSV_MODES, .CURRENT_F IBLF IB$B_AGENT_MODEJ)); 


Control access is allowed. Note this for future use, to avoid additional 
(unneeded) protection checks. 


CTL_ACC_GRANTED = 1; 
END; 
END; 


Compute the action routine code. 


ACTION = .ATCC.CODE, ATC_ACTION); 
IF .ATCL.CODE, ATC_READ_ONLY) AND .ACTION NEQ ACT_ACL 
THEN ACTION = ACT_ROP; 


Compute the address of the attribute. 


EE I Ge EE I I I FL IE I I I A 
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SOOSOSGOSCOOCOCOOOOO0OO00O0OMo ~“ NN io 
LSESREVLSSSLESRASLSSESE = oOo 3 
POPIPORIPIPININPOPOPOPOPURSPUNINININIPO NPP PIPUNININININONININONN POPP nonononononononononononononononononon) 
POPIPIPOPIAPDNPIPINIPINININININININVININNNNNNNNNNAININININININININIPINININPINPININPNIPIPININIPININPIPINININYD 
$009.09 0909 0909 09 09 09 09 SI NINN NN NSN SRA AA AAA AARA AAI 
=O OD NAME WN SO OD NAME WN $0 OD NA UNE WIN O OD NAM EWN OO ONO ES wr 
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q 3 ADDRESS = 

09 34 CASE gATCL. CODE, ATC_LOCATION] FROM 0 TO ATC_LASTATC OF 
11 9 ATC_ZERO 

12 9 ATC“ACPGAL, 


BBLOCK CLOCAL_HEADERCFH2$W_RECATTRI, FATSL_HIBLK] = .SAVE_HIBLK; 
| 
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RWATTR 16-Sep-1984 01:04:11 VAX-11 Bliss-32 V4.0-742 e 40 RI 
v04-000 10-38b-1 $82 3: 0:45 DISKSVMSMASTER:CF11X.SRCIRWATTR.B32; 1 479 (6) vi 


3; 14 ¢$2 4 CACT_RESERVED]: BEGIN : 
; 1685 4 9 4 LOCAL MAP_END | : 
3 14 471 & ACL- END : REF BBLOCK, ; 
: 1 138 : RESERVED_LENGTH; : 
3 1 9 tee 2 IF .COUNT LSS 2 THEN (STATUS = SS$_BADATTRIB; EXITLOOP); : 
: 1491 rh 4 ! Determine where the maximum Length possible for the reserved area. ‘ 
Wee ng! | ii 
3 14946 138 4 MAP_END = tr HEADER + ype inn ty FH2SB -MPOFFSETJ*2 + ; 
> 1495 480 4 LOC LHEADERCFH2 B MAP | | ; 
: 1496 481 4 ACL_END = TOEAL™ HEADER + .LOTAL "READER FHbse ACOFFSETI#2; ; 
3 es 4 ret 2 UNTIL »-ACL_END GEQ LOCAL “HEADER” + ,LOCAL _HEABERCFH2S8_ RSOFFSETI*2 | ; 
3; 1499 484 5 BEGIN . 
: 1500 485 é IF “oe -ENDCACESB SIZE] EQL 0 THEN EXITLOOP; $ 
$ 133) rt 5 Act END'= .ACL_END + .ACL_ENDCACESB_SIZEJ; 
; 1308 488 4 RESERVED _LENGTH = LOCAL_HEADERCFH2$W CHECKSUM] - | F 
3 1504 489 5 (IF .CO cA * -HEADERCFH2$B_ACOFFSET] NEQ r 
; 1505 490 5 “LOC HEADERCFH2$B_RSOFFSET) é 
$ 1208 133 2 THEN Kee “END ELSE .MAP END); ‘ 
3; 1508 49 4 CHSFILL (0, SBYTEOFFSET (FH2$W_CHECKSUM) - é 
3; 1509 494 4 RVED_LEN é 
: 1510 495 4 LOCAL _HEABERCFH2$w_ CHECKSUM] - .RESERVED_LENGTH); $ 
3 1313 496 4 P= .P + 2; ! Skip over size : 
: 4 ig 497 4 COUNT = .CO : 
3; 151 498 4 IF COUNT orn RESERVED LENGTH THEN (STATUS = ult aA ee EXITLOOP); $ 
3 1514 rt+4 4 ADDRESS = (LOCAL HEADERTFH2$W_CHECKS AND NOT é 
3 1515 500 4 IF .LOCAL_HEADERCFH2$B8_ACOFFSET] EQL “LOCAL OEADERE 236 RSOFFSET TJ : 
5 1218 501 4 AND -LOCAC_HEADER FH2$6 “are paay4 NEQ .LOCAC _HEADERCFH2$8 _MPOFFSET] + .LOCAL_HEADERC : 
3; 151 208 4 THEN LOCAL_HEADERLFH $B_ ACOFFSET) = é 
; 1518 503 4 CAL_HEADERCFH $B- RSOFFSETJ = (.ADDRESS - .LOCAL_HEADER) / 2 é 
3; 1519 504 4 ELSE LOCAL HEADERCFH2$B_ pager seta = (.ADDRESS - .LOCAL “HEADER) / 2: ; 
; 1520 505 4 CHSMOVE (.COUNT, .P, .ADDRESS); 3 
3 1361 506 3 ; 
3 15 § 507 : 
3; 15 508 TES; ; 
3: 1524 509 ; 
; 1 5 219 END; : end of loop : 
3 HF $ 21§ ! If the directory bit was turned off by this operation, we must purge 3 
3 iF 3 a7 the RMS directory caches and the directory block cache on this volume. | ‘ 
: 1830 515 | : 
: 1531 516 2 IF .SAVE_CHARLF CHSY DIRECTORY) | : 
3 15 § 51 AND NOT [LOCAL_HEADERCFH2$V_DIRECTORY] 3 
3 1337 218 | $ 
3; 15 51 BEGIN 3 
: 1535 $20 UPDATE DIRSEQ | : 
: 13 ; 1 KILL_BOFFERS Pp! -LB_BASIS C.PRIM_LCKINDX)); | : 
3 1338 ; 5 IF aie cee CFCBSL_DIRINOX] NEQ 0 : 
: 1540 525 KILL_DINDX (.PRIMARY_FCB); ; 
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END; 


OR (.SAVE 
BBLOCK CLOCAL_HEADERCFH2$W_RECATTRI, FATSL_ 
} Rebuild the header's ACL if necessary. Otherwise just checksum it. 


IF .ACL_MODIFIED 
THEN 


gg Sh UTL. (.PRIMARY_F CB) 


BEGIN 
CHECKSUM (.LOCAL_HEADER); 
BARK DIRTY (. LOCAL HEADER) ; 


Stop metering of this subfunction 


PMS_END_SUB (); 
IF NOT .STATUS THEN ERR_EXIT (.STATUS); 


94 AE 

20 =A 08 AA 
1C AE 0204 fA 
00006 gf 1 
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10 AE } 
0000G CF 5 
0000G CF 1 
ga 02 

8 34 «AG 

oc A 18 A6 

5 90 AA 

08 AE 32.0 AO 
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4 01:04:1 VAX=11 Bliss-32_V4.0-742 
Ba BH DISKSVMSMASTER:CF11X.SRC 


Restore the state of the protected file characteristics bits. 


LOCAL _HEADERCFH2SL_FILECHAR] = (.HEADERCFH2$L_FILECHAR] AND NOT PROTECTED_CHAR) 
CHAR AND PROTECTED _CHAR); 
HIBLK] = .SAVE_HTBLK; 


WRITE_ATTRIB 


CHECKSUM, MARK_DIRTY 
UPDATE _DIRSEQ, KILL_BUFFERS 
KILL_DINDX E_STRI 

ACL_BUILDACL, CHECK_PROTECT 


+t a tle Save R2,R3,R4,R5,R6,R7,R8,R9,- 


R1 
-108(SP), SP 

8 (BASE? 32(SP) 
316(BASE), 28(SP) 


#1, PMS_START_SUB 
HEADER, LOCAL HEADER 
ACL MODIFIED 


a 
SB{LOEAL HEADER} SAVE_CHAR 
2 (LOCAL HEADER), SAVE-HIBLK 
=110(BA f) R 
50(R0), 8(SP) 


Pp 
IRWATTR.B32: 1°" 


114 
~ AX-11 Bliss-32 V4.0-742 Page 42 
16 =3e0- 1382 93; S554 D1 SKSVMSMASTER: :CF11X.SRCIRWATTR.B32;1 (6) | 
MOVL £eg I s 
= * 04 “i : ch 18: howl ? 2235, 
8 8C41 76 00051 = = MOVAG otR13, RO 3 | 
| @hee Br i pa 
o : 02 ad 3¢ D MOVZWL sthos COUNT : 3336 
59 0 A 0006 MOV ZBL CODE : 2237. 
85 by 0006 PECL CObE. ; | 
D6 0006 INCL P ; 3238 
2F $f pe ote: cmPL ODE, #47 ; 226 | 
F7E0 cree te 096 PUSHAQ ATC+6{CODE) 2 2247) 
0 9& 3¢ O98 MOVZWL @(SP)+, MAX_COUNT : | 
38 58 01 00076 CMPL OUNT, MAX_COUNT > 2248 
330 3 ie - eee 5, : 
F7CA O78 3} OO7E 3$ PUSHAQ ATCCCODE) 3 2251 
3A 9E . 00088 BBC #1, a(SP)+, 5$ : 
01 «AA 40 BF is 00087 BISB2 #64, 1(BASE) > 2260 
31 OC ac €9 0008C BLBC CONTROL -ACCESS, 5$ > 2262 
2p 18 AE £8 00090 BLBS ctl ACC~GRANTED, 5$ : 
18 Ab OC AE DO 00094 MOVL Ave HIBLK, 24(LOCAL_HEADER) 3: 2269 
51 90 AA DO 00099 MOVL TRIE i : 2271 
ar pe ee Ry Bee Ti), cn : 
6E 2— Ad gf O07 CMP dgind): P) 
a E % 3 BOOB MOVZBL 46(RO), (SP) : 
4 BE DD 00081 4s: PUSHL (SP : 2270 
gS $5 Googe ust SatML MEADE : 
HECK PROTECT b 
ones Bi 8 S88 ES Be CS ten ‘a 
F78A CF49 7F O00C1 5$ PUSHAQ ATC SteopEs~ > 2285 
51 9E 90 000C6 MOVB a(SP)+, ACTION : 
F77F CF49 7F 000C9 PUSHAQ ATCCCODE) > 2286 
BBC #0, a(SP)+, 6$ 3 
07 9E 0 £1 000C ' P 
OF 1 91 0000 CMPB = ACTION, #1 : | 
2 13 0000 BEQL «6 : 
96 94 00007 CLRB ACTION > 2287 | 
F770 CF49 7F 00009 6$: PUSHAQ ATC+1LCODE) 3 229% | 
08 0 8F OODE ASEB a(SP)+, #0, #8 ; | 
oie o0%s got OED 7$: R 8$-78.- : | 
-_ ee: 8043 bore 19s-7$,- : 
12$-7$,- 3 
14$-7$,- : 
16$-7$.- : 
eS. $,- ° 
$-7$ : 
50 40 AE 9 Ors 8$: move ATT. BUFFER, RO ; | 
50 20 BE 00 ep 9$: POV ; (SP), RO 2299 | 
F74A CF49 7 108 10$:  PUSHAQ ATC+2CCODE) : 2302) 
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ODE 


_HEADER), RO 


2(LOCAL_HEADER), RO 


17$ 
MOVZBL 3(LOCAL 


HEADER), R2 
AL_HEADER), RO 


eerpreepepevrereeeee ee eees 
esse eeseesee see ee ee ees 
PAPAAAAAAAPHAAAAAHAAA 
PAAAAAAAAAAAAAAAAO 


a 
I 
A 


14 
73op= 198 93:95:48 
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a(SP)+ 
CAL_HEADER), RO 
Et 


$ 
ACTION 
LOCAL HEADER, RO 
PUSHAQ ATC+2CCOD 
1(LOCAL 
R2 
6c 
° R3 
* R 
a 
#4, ACTION 
6 
$ 
1 (LOCAL 
17$ 
(LOCA 


a(SP)+ 
PUSHAQ ATC+2 
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R 
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MOVZBL @(SP)+ 
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RWATTR 1b-Se -1984 01:04:1 VAX=-11 Bliss-32 V4.0-742 Pa 
1er8ep= 138 12:80:45 DIRKSVMGMASTERSEI TIX. SRE IRWATIR.B32:1°%" (6) 
028¢ 31 O01A3 BRW 64$ ; : 
‘ pd 146 208:  MOVL (ADDRESS), UIC : 2340. : 
00 f : 1A MOVZ7BW aP, : 1 : 
D1 OO01AD CMPL OUNT, #2 t 2342. ; 
¢ 19 189 BLSS : ; 
52 $f 1 gi 18 ADDL3 «#1, P, R2 > 2343) : 
é A 186 MOVZBL (R2), R : ; 
50 10 10 FO 0018 INSV R1, #16, #16, UIC : | ; 
6 DD 0O1BE 21$: — PUSHL LOCAL HEADER + 2344 ; 
24 8 DD O01C PUSHL  @36(SP) : F 
0D 001C PUSHL UIC : ; 
o009v CF : FB OO1C CALLS #3, CHANGE_OWNER : | ’ 
10 AE DO OO1CA  « MOVL RO, STATUS : ; 
4C 10 AE CE OiCe BLBC STATUS, 26$ > 2345) ; 
36 04 AA 00 9010 MOVL § 4(BASES, LOCAL_HEADER F 346 : 
0 58 01 0106 CMPL COUNT, #3 + 2347 : 
08 19 0010 BLSS : ; 
50 &e 02 C1 001DB ADDL3 #2, P, RO + 2348 ; 
40 A6 : 90 OO1DF MOVB (RO), 64(LOCAL_HEADER) : ; 
04 8 D1 OO1E3 228 CMPL COUNT, a4 + 2349 ; 
08 19 OO1E6 BLSS 23$ : ; 
50 6E 03 C1 OO1E ADDL3 «#3, P, RO : 2350 ; 
41 a6 60 90 OO1EC MOVE (RO), 65(LOCAL_HEADER) : : 
05 58 01 001FO 238: CMPL COUNT, 5 + 2351 ; 
60 19 OO1F BLSS i$ : : 
50 6E 04 C1 001F5 ADDL3 #4, P, RO + 2352 ; 
34 AG 60 90 O001F9 248:  MOVB (RO), 52(LOCAL_HEADER) : : 
26 11 OO1FD BRB 27$ : 2353 : 
28 «AE 67 DO OO1FF 25$:  MOVL (ADDRESS), UIC : 2358 : 
28 «AE 00 BE 58 28 00203 MOVC3 COUNT, aP, UI : 2359 : 
56 (DD 90209 PUSHL LOCAL HEADER : 2360 : 
24 BE DD 00208 PUSHL  @36(SP) : ; 
0 AE DD 0020 PUSHL ujc : ; 
0000v CF Q FB 00 11 CALLS #3, CHANGE_OWNER : F 
10 AE 0 DO 00216 MOVL RO, STATUS ; F 
56 AA DO OO21A MOVL 4(BASE), LOCAL HEADER : 2361 : 
03 10 AE 8 OO21E 26$:  BLBS STATUS, 27$ > 2362 ; 
0248 31 00 BRW : ; 
0179 31 00 278: BRW 2$ : 236 : 
14 00 00 BE - 38 C 00 8 28$:  MOVCS COUNT, aP, #0, #20, CLASS_BLOCK > 236 : 
2C «AE OF 00 PUSHAB CLASS_BLOCK > 2369 : 
56 DD 00 PUSHL LOCAL~HEADER : ; 
0000v CF 9¢ FB 0235 CALLS #2, CRANGE_CLASS 3 3 
10 AE DO 0023A MOVL RO, STATUS : ; 
DE 11 00 BRB 26 : 2370 : 
40 Ab 00 BE 90 00240 298:  MOVB @P, 64(LOCAL_HEADER) : é 75 3 
02 58 D1 0024 CMPL OUNT, #2 : 2376 : 
be 19 4 BLSS : 3 
50 73 1 gi 4A ADDL3) «#1, P, RO : 2377 : 
41 OA $9 0 0024 MCVB = (RO), 65(LOCAL_HEADER) : : 
0 8 D1 00 308: CMPL gun 83 > 2378 : 
C 19 1$: BLSS $ ; : 
50 6E C1 ADDL3 We P, RO : 2379 : 
¢ 11 B BRB 4 : : 
7 00 BE 99 D 32$: MOVB  a@P, (ADDRESS) F 3385 : 
1 90 AA dO 00261 MOVL §=-1/2(BASE), R1 > 2386 ; 
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, 8. MODE 


nl: #e, #5, ADDRESS). R2 


DE, Rt, #2, (ADDRESS) 


COUNT, @P, #32, #20, 


he ya HEADER), 
nO. RY READER), aD. 


#60 
aa RO 


#20, 
RO, “cRo)® 7932, #66, 


45$ 

T_BUFFER+6 
LOCAL AEADER). 
OCAL_READER), “RO. 


» RI 
§ 


#60 
44$ 
ATT_BUFFER+12, T 
40$~ 
ATT_BUFFER+14, T 
}CLOCAL HEADER), R1 
aL OC, _READER), RO 
* #60 
#0, (SP), #32, #66, 


ATT BUFFER 
ADDRESS 


MAKE NAMEBLOCK 
COUNT a 
#0, lephr #32, #20, 


AT 
1¢ 
‘ 
R1 
a5 


ADDRESS 
ATT_BUFFER 
MAKE _STRING 


COUNT, @P, #48, #13, ATT_BUFFER 
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16-Sep-1984 01:04:1 VAX-11 Bliss-32 V4.0-742 e 46 | 
1a-8ep-19 4 Ps ee DISKSVMSMASTER:CF11X.SRCIRWATTR.B32;1 929 (6) 
9 ‘ | 
D B PUSHL ADDR t 2439. 
F PUSHAB ATT BUFFER : | 
11 BRB 48$ : 
2c 47$: | MOVCS COUNT, @P, #48, #44, ATT_BUFFER + 2643) 
BO A mMOVW ss ATT BUFFER 20( ADDRESS) + 2444 
F F PUSHAB 30(ADDRESSS t 2645) 
PF 00848 PUSHAR ATT_BUFFER® ; 
FB 0034 CALLS 43 CONVERT_DATE : | 
9F O034A PUSHAB 22 (ADDRESS) t 2646. 
9F 0034 PUSHAB ATT_BUFFER+ : 
FB 0035 CALLS ne CONVERT _DATE : | 
9F 0035 PUSHAB 38(ADDRESS) : 2647 
9F 00358 PUSHAB ATT_BUFFER+2 : 
FB 00 38 48$: CALLS “CONVERT_DATE : 
11 00360 49$: Bre 53§ 3326, 
DO 00 62 50$: MOVL 16(BASE), RO ; 2453) 
E9 00 BLBC ©: §2(RO), $1 ; 
DD 0036A PUSHL LOCAL_HEADER > 2456 
FB 00 $¢ CALLS #1, CRECKS : 
DD 00371 PUSHL LOCAL_HEADER + 2457 
FB 0373 CALLS #1, MARK_DIRTY : 
D 00 78 VL #1, ACL_MODIFIED + 2458 
DD 0037C¢ PUSHL P + 2460 
7D 0037E MOV ADDRESS, =(SP) : 
DD 00381 PUSHL C¢ : 
FB 00383 CALLS #4, ACL_DISPATCH : | 
DO 00388 MOVL RO us : | 
DO 0038C MOVL  4(BASE), LOCAL_HEADER + 2461. 
E8 00390 BLBS. ST : + 246 
C1 00394 ADDL3 #52, 28(SP), RO > 246 
dO 0399 MOVL STATUS, (RO) : 
0 0390 51$:  MOVL #1, STATUS + 2465 
8 003A1 328: BISB2 #64, 1(BASE) + 2466 
31 OO3A6 53$: BRW 64$ : 2326 
D1 003A9 54$: = CMPL OUNT, #2 + 2474 
18 003AC BGEG 6 : 
dO 00 AE 55$: MOVL #52, STATUS ; 
11 0038 BRB 60$ ; 
9A 00384 56S MOVZBL 1(LOCAL_HEADER) > 2479 
3 0388 MOVA (LOCAL | READER) LAO, R1 : 
A 003BC MOVZBL 58(LOC HEA DER) , RO : 2480 
3E 003¢6 VA (RIDCROI7 : 5479 | 
A 0034 MOVZBL 2(LOCA D MEADER > 2481 | 
3 00 8 VA {LOCAL LAER CE CRON: ACL_END : 
E 003CC MOVAB — $(LOCAL HEADER) . RS 3 2682 | 
9A 00300 57$: MOVZBL (R3) : | 
3 030 MOVAW (LOCAL HEADER) CR2], R2 : | 
D D CMPL ACL END, R2 : 
1 DA BGEQ 88S F 
9 DC TSTB = (ACL_END) > 2485. 
1 0 D BEQL 58$ ; 
9A O03E MOVZBL (ACL iN?) R2 > 2486. 
£0 E ADDL Ro, A END : 
£6 BRB 3 $ > 2482. 
91 003E8 58 CMPB (LOCAL_HEADER), (R3) : 2490 
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1 = 300138 93:95: DISKSVMSMASTER=CF1iX.SRCIRWATTR.B32:1-° 
3 1 EC BNFQ 4 =-59$ ; 
0 D EE MOVL_ MAP_END, RO F 
50 ‘ § F1 59$: § SUBL3 R0 LOCAL HEADER, RO : 
O1FE F5 MOVAB 510(RO), RESERVED LENGTH : 
51 OOOOO1FE BF C FA SUBL3 RESERVED_LENGTH, #510, R1 : 
0 & : 402 SUBL RESERVED -LENGTH LOCAL_HEADER, RO : 
51 05 6E nee 00 2 04 6 moveS #0, (SP)7 #0, RI, 510(RO) : 
; ¢ Bcor ADDL 2. Pp : 
C2 0041 SUBL2 #2. COUNT : 
9 D1 00414 CMPL COUNT, RESERVED_LENGTH : 
0 13 417 BLEQ ; 
10 AE 08c8 BF ¢ 419 MOVZWL #2248, STATUS : 
af 11 O041F 60$: BRB ; 
50 56 58 C3 00421 61$:  SUBL3 £0 NT, LOCAL_HEADER, RO : 
0 O1FE CO SE 00425 MOVA 10(R6), ; 
57 0 o1 cB 042A BICL3 #1, RO, ADDRESS : 
50 7 6 C3 004 SUBL3 LOCAL HEADER, ADDRESS, RO ; 
50 02 C6 004 DIVL2 #2, ; 
03 Ab 02 Ab 91 004 CMPB = 2(LOCAL_HEADER), 3(LOCAL_HEADER) : 
1D 12 0043A BNEQ  62$ : 
51 01 Ab 9A 0043C¢ MOVZBL 1(LOCAL_HEADER), R1 : 
2 3A As 9A 00440 MOVZBL 58(LOCAC_HEADERS, R2 : 
51 52 CO 00444 ADDL2 Re, Ri : 
51 02 A6 08 00 ED 00447 CMPZV a” #8, 2(LOCAL_HEADER), R1 $ 
OA 13 O044D BEQL 62$ : 
03 A6 50 90 0044F MOVB RO, 3(LOCAL_HEADER) 3 
02 A6 50 90 00453 MOVB RO 2(LOCAL_HEADER) 3 
04 11 00457 BRB 63$ ; 
03 Ab 50 90 00459 638 MOVB. RO, 3(LOCAL_HEADER) : 
67 00 BE 58 28 0045D 63$: | MOVC3 COUNT, aP, TADDRESS) ; 
02 04 AE 08 AE F2 0462 64$:  AOBLSS &(SP); 1,°65$ : 
03 11 0046 BRB 663 ; 
FBEO 31 0046A 65$ BRW 1$ : 
2B 5B Op E1 00460 66$ BBC #13, SAVE_CHAR, 67$ : 
26 35 Ab § £0 00471 BBS #5, S53(LOCAL_HEADER), 67$ ; 
00006 CF 00 FB 00476 CALLS #0, UPDATE_DIRSEQ ; 
50 18 AA 00 0478 MOVL 4 (BASE) ; 
0080 CA40 DD 0047F PUSHL 128(BASESCROJ : 
01 DD 00484 PUSHL #1 ; 
00006 ; 2 FB 00486 CALLS a KILL_BUFFERS F 
20 BE D 0488 MOVL  @30(SP),~RO ; 
0080 C D O48F TSTL 176(RO) é 
: 1 0493 EQL 42s 7S : 
0 Dd 0049 PUSHL RO ; 
00006 CF 01 FB 497 CALLS #1, KILL_DINDX ; 
0 04 AC DO 0049C 67$:  MOVL HEADER RO ; 
50 34 =A 00010080 F CB 004A BICL3 #118918, 52(RO), RO : 
38 FFFE2F7F BF CA OO4A BICL2 #-118918, R11 : 
34 A B 0 ¢9 450 BISL3 RO, R11 S2(LOCAL HEADER) : 
18 A6 oc AE 09 048 OVL  SAVE_HIBLK 4{LOCAL HEADER) ; 
OA 14 AE €9 OO4BA LBC ACL MODIFIED, 68$ : 
20 F DD 4B PUSHL a32TSP) ; 
00006 CF FB 4C CALLS #1, ACL_BUILDACL : 
— 1 ac BRB 69$ ; 
6 DD 004C8 68$:  PUSHL LOCAL_HEADER : 
00006 CF 01 FB O04CA CALLS #1, CRECKSUM : 
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ROUTINE CONVERT_DATE (STRING, TIME_BLOCK) : L_NORM NOVALUE = 


V4,0-742 
F11X.SRC 


9 
1X. ) 


: 


i FUNCTIONAL DESCRIPTION: 


a files-11 structure level 1 ASCII date/time 


This routine converts 
string into 64 bit binary format. 


te 


WR —OOONOUS wr 


i CALLING SEQUENCE: | 
CONVERT_DATE (ARG1, ARG2) 


i INPUT PARAMETERS: 
ARG1: address of date/time string 
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we 
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SES 


, | 
88 
89 5 

5 i OUTPUT PARAMETERS: 

§ ARG2: address of quadword buffer 

8 i IMPLICIT OUTPUTS: 

; NONE 

1 i ROUTINE VALUE: 

‘ NONE 


' 

i] 

' 

' 

' 

' 

' 

' 

' 

' 

! 

1 

' 

! 

i IMPLICIT INPUTS: 
NONE 
' 

! 

' 

' 

' 

J 

' 

' 

' 

i SIDE EFFECTS: 
NONE 
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87 ons 
88 
89 
90 
07 91 
08 3 DATLEN = 20; ! Length of date/time string 
609 9 
610 94 2 LOCAL | 
611 95 DATDESC : VECTOR 2) ! string descriptor for date string 
61g %6 DATBUF : VECTOR DATLEN, BYTE); | 
61 9 ! buffer to build expanded string | 
18 39 
616 00 ! Copy the given string into the buffer, inserting the date punctuation 
oi? ret as appropriate. Then convert with the system service. 
619 $08 
620 one (DATBUF +00)<0,16> = ;(, STRING) ; 
621 605 (DATBUF+02)<0,8> = ‘-'; 
6 ¢ O06 (DATBUF +03)<0,24> = ,(,STRING+2); | 
6 60 (DATBUF #06)<0,24> = °-19'; 
624 608 ¢ (DATBUF+09)<0, 16> = , (, STRINGS) ; 
625 60 (DATBUF+11)<0,8> = ° °; 
626 610 2 (DATBUF#12)<0,16> = ,(,STRING+7); 
627 611 (DATBUF+14)<0,8> = ':'; 
628 612 2 (DATBUF+15)<0.16> = .(.STRING+9); 


Sep-19 VAX-11 Bliss=32_V4.0-742 0. 
1b-Sep-1944 oy: Ta DISKSVMSMASTER:CF11X.SRCIRWATTR.B32; fa ge 30 


j 
; 13 2 (DATBUF+17) <0 8 
; 12 $ (Dateursieo<O,te> = ..STRING#I1); 
; 15 DATDESCE = 6AT | 
; 616 DATDESCL1] = DA Thor 
; $1 SBINTIM (TIMBUF = DATDESC, TIMADR = TIME BLOCK); | 
; 19 END; ! end of routine CONVERT_DATE 
.EXTRN SYSS$BINTIM 
0000 00000 CONVERT_DATE: 
.WORD Saye nothing : 2556 
E 1c C¢ 90002 SUBL2 #28, SP ; 
0 04 AC DO 0000 MOVL STRING, RO + 2604 
6E $0 : 90009 MOVW (RO), SATBUF : 
02. AE D 90 0000 MOVB #45, DATB + 2605 
03 «AE 18 00 92 AO FO 0001 INSV  2(RO), #0, #24, DATBUF+3 + 2606 
AE 18 00 0039312) 8F FO 0001 INSV #3748141 #0 #24, DATBUF +6 + 2607 
09 «AE 05 Ad 80 00021 mMOVW = 5<RO BUF +9 + 2608 
OB AE 20 90 00026 MOVB = #32  earBuEe 11 + 2609 
OC AE 07 AO BO O002A MOVW Wie5) DATBUF +12 + 2610 
OE AE 3A (90 000¢F MOVB #58, DATBUF+14 > 2611 
OF AE 09 AO B80 00033 mMovw 9(R0), DATBUF+15 : 2612 
11 AE 3a 90 00038 MOVB #58, DATBUF+17 : 2613 
12 AE OP AO BO 0003C MOVW  11(RO), DATBUF+18 > 2614 
14 AE 14 pO 00041 MOVL #20, DATDESC 3; 2615 
18 AE 6E 9E 00045 MOVAB DATBUF, DATDESC+4 + 2616 
08 AC DD 00049 PUSHL TIME BLOCK + 2617 
18 AE 9F 0004C PUSHAB DATDESC ; 
000000006 00 02 FB 0004F CALLS #2, SYS$BINTIM ; 
04 00056 RET + 2619 


; Routine Size: 87 bytes, Routine Base: S$CODE$S + 0C96 
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Ss 


; 1638 ° 9 ! GLOBAL ROUTINE CHANGE _OWNER (UIC, ORG_FCB, ORG_HEADER) : L_NORM = 
: 16 602 1 144 
3 6 1! 
3 : 1 | ! FUNCTIONAL DESCRIPTION: 
: 1608 6 § 1! This routine changes the owner UIC of a file. It check for privilege 
: 1644 6 |} and then chains t rough all the headers of the file, changing the 
>; 1645 628 1! owner UIC, he he blocks to the old owner and charging them 
3 1968 6e9 1! to the new owner, if necessary. 
3; 164 650 1! 
; 19*8 631 1 ! CALLING SEQUENCE: 
3: 164 6 1! CHANGE _OWNER (ARG1, ARG2, ARG3) 
; 1650 6 1! 
; 1651 6 1 ! INPUT PARAMETERS: 
3 1026 655 1! ARG1: new UIC 
; 165 6 1! ARG2: address of file's FCB 
; 1028 , : ARGS: address of file header or 0 if it must be read 
3 1938 639 1°! IMPLICIT INPUTS: 
3 1o2t ony : CLEANUP_FLAGS: cleanup action and status flags 
; 1659 ret 1 ! OUTPUT PARAMETERS: 
; 1660 6435 1! NONE 
3: 1661 644 1! 
: 1066 645 1 ! IMPLICIT OUTPUTS: 
: 166 646 1! NONE 
3: 1664 647 1! 
: 1665 648 1 ! ROUTINE VALUE: 
: 1666 649 1! NONE 
3 1667 650 1! 
3; 1668 651 1 ! SIDE EFFECTS: 
3 106) O36 i file headers read and written, quota file entries modified, FCB modified 
eh ees 
8 AN 
167 e363 occ 
: 1675 658 LINKAGE 
; 1678 659 L_SEARCH_RIGHT = JSB (REGISTER = 2, REGISTER = 4; 
; 1677 660 REGISTER = 1, REGISTER = 5); 
3; 1679 666 MAP 
; 1980 66 ORG_FCB : REF BBLOCK; ' FCB of file 
3: 1681 664 
3 1086 665 LOCAL 
3 1 ORG_FILE_OWNER, ! Original file owner 
3 1684 66 HEADER : REF BBLOCK, ! pointer to current file header 
3: 1685 668 REF BBLOCK, ' FCB of current header, if any 
: 1686 669 ARB REF BBLOCK, ! Access rights block address 
3; 1687 670 RIGHTS DESC REF BBLOCK, ! Rights List descr address 
3; 1688 671 ID REF BBLOCK, ! Addr of matching ID 
; 1689 ore RIGHTS_ SEG REF BBLOCK, ! Addr of rights segment that has ID 
3; 1690 67 STATUS_1, ! Indicates file owner resource 
; 1691 674 STATUS_2, ' Indicates target UIC resource 
; 1006 154 SIZE; ' size of file section 
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v04-000 107 368-138e 93:9 i} DISKSVMSMASTER:CF11X.SRCIRWATTR.B32; 1 ’ ts 
; 1694 677 2 BIND. COMMON; | : 
; 1696 679 EXTERNAL ROUTINE | : 
; 169 6 EXESSEARCH_RIGHT : L SEARCH RIGHT ADDRESSING MODE (GENERAL), ‘ 
; 1698 681 ! Search rights List for identifier : 
$ 6 ¢ CHARGE QUOTA L_NORM, ! charge bh orks to user's quota ‘ 
; 1700 6 CHECKSOM : LINORM, ! compute file header checksum : 
5 178) MARK _DIRTY : L_NORM, ! mark buffer for write-back ‘ 
3; 17 ¢ 685 NEXT_HEADER : L-NORM, ! read next extension header ; 
; 170? § READ_HEADER L_NORM; ! read a file header | : 
: 1705 ; 
3 1708 4 3 ! Set up local poreners. Then check privilege. If the new UIC is the same ; 
; 170 690 ! as the old UIC, this whole thing is a NOP (and does not require privilege). | ; 
ee : 
: 1710 693 2 FCB = .ORG FCB; | : 
; Hay! re ORG_FILE_OONER = .FCBCFCBSL_FILEOWNER); ° 
: 1718 bs IF .ORG_FILE_OWNER EQL .UIC THEN RETURN 1; | : 
: 1715 698 ! If the UIC is not the same, it is necessary to determine whether or not : 
; 1716 99 ! the requesting process is able to change the owner of the file. In order ‘ 
3 1717 00 ! for the the owner to be enenged, the requesting process must be: 1) running ; 
: 1718 701 ' with SYSPRV, 2) be running with GRPPRV and the group of the _file owner, ‘ 
3; 1719 70 i the requesting process, and the target UIC must match, and 3) have resource ‘ 
3 Hf » At, ! rights to the file owner's UIC and the target UIC. | ‘ 
i 1728 705 ARB = 10 PACKETCIRPS ARB): | 
; if Z 4 RIGHTS_DESC = ARBCARBSC_RIGHTSLISTI; ‘ 
: 1725 708 ! Determine whether or not the accessor has resource rights to the file's ; 
3 1137 4 4 ! owner UIC. ; 
; 1728 711 STATUS 1 = 1; ! Assume resource rights to owner UIC ‘ 
3 1729 ay IF .ARBCARBSL_UIC] NEQ .ORG FILE OWNER : 
; 17 71 THEN IF EXESSEARCH_RIGHT (.ORG_FILE_OWNER, .RIGHTS_DESC; : 
; 1731 714 iD FOUND, “RIGHTS SEG) : 
; 17 ; 715 THEN (IF NOT .ID FOUNDERGBSV_ RESOURCE] ‘ 
3 17 rig THEN STATUS_1 = 0) : 
; Hf ¢ 4. ELSE STATUS_1 = 0; ¢ 
; 4 m9 ! Determine whether or not the accessor has resource rights to the target UIC. ‘ 
: 1738 721 STATUS 2 = 1; ! Assume resource rights to target UIC : 
3 1739 7 ¢ IF .ARBCARBSL_ UIC) NEQ .UIC : 
; 1740 7 THEN IF EXESSEARCH_RIGHT (.UIC, .RIGHTS DESC; ID_FOUND, RIGHTS_SEG) : 
> 1741 724 THEN (IF NOT 71D FQUND [KGbsi_RESOURCE | : 
; 1766 725 THEN ST TUS. = 0) : 
3 oe? f § ELSE STATUS_2 = 0; 
3 1745 ? ! Now, check the results of the above tests. If either fails, a check is | ; 
; 1766 y , ' made to see if SYSPRV or GRPPRV apply. | : 
: 1748 733 SASSUME (SBITPOSITION (UICSV_GROUP), EQL, 16) : 
3 1749 7 ¢ SASSUME (SFIELDWIDTH (UIC$V_GROUP), EQL, 14) : 
: 1750 7 SASSUME (SBITPOSITION (UICSU_FORMAT), EQL, 30) | : 

| 
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3 Wy 1 i 7 SASSUME (SFIELDWIDTH (UICSV_FORMAT), EQL, 2) 
; 17 : 7 § IF NOT .STATUS_1 OR NOT .STATUS_2 
3 i ¢ f THEN 
3 17 $ 7 $ IF NOT .BBLOCKCLOCAL_ARBCARBSQ_PRIV], PRVS$SV_SYSPRV] 
317 740 AND NOT .BBLOCKCLOCAC_ARBCARBSG PRIVI, PRVSY 
: 17 2 741 4 AND NOT (.BBLOCKCLOCAC_ARBCARBSO PRIVI, PRV$U_GRPPRV) AND | 
3 17 ree 2 (CA ARS L_01CJ)<16,16> EQL .FCBCFCB$W_UICGROUP] AND 
3; 1760 74 . (ARB “ge Wit <16 i? EQL .UIC<16,165 AND 
3 1761 744 & -BBLOCK CARBCARB$SL_U[C], UICS$V_FORMAT] EQL UICSK_UIC_FORMAT)) 
$ 1796 745 THEN RETURN SS$_ V; 
5 10e7 o END; 
: 1765 74 ! Credit the original owner and charge the new owner for the blocks allocated 
5 1766 4 ! to the file. Loop through the FCB chain to count up the number of headers. 
: 1768 751 SIZE = .FCBCFCBSL_FILESIZEJ; 
: 1769 136 IF NOT .CLEANUP_FCAGSCCLF_HDRNOTCHG) 
: 1771 754 BEGIN 
g Hae; 755 dO 
3; 177 238 4 BEGIN 
3 1774 757 & SIZE = pSite + 1; 
3; 1775 758 4 FCB = .FCBLFCBSL_EXFCBI; 
3; 1776 759 4 EN 
3: 1777 760 ; UNTIL .FCB EQL 0; 
3: 1778 761 FCB = .ORG_FCB; 
1780 3 _— 
: 1781 764 IF .SIZE GTRU 0 
; 1786 765 THEN 
3; 178 76 BEGIN 
: 1784 76 CHARGE _QUOTA (.UIC, .SIZE, BITLIST (QUOTA_CHECK, QUOTA_CHARGE)); 
> 1785 768 CHARGE_QUOTA (.ORG_FILE_OWNER, -.SIZE, BITLIST (QUOTA_CHARGE)); 
: 1756 769 END; 
: 178 770 
: 1788 771 !' Now loop, changing the owner UIC of a header and writing it. Note that no 
; 1789 77 ! provision is made for error recovery. This is because the previous ownerships 
3; 1790 77 ' of the headers of a multi-header file could be different, and therefore 
3; 1791 774 ! cannot be saved in finite space. Thus a failure here could Leave the 
: 1738 ae ! file half changed. 
: 1794 77 HEADER = .ORG HEADER; 
3: 1795 778 IF .HEADER EOC 
: im Ag THEN HEADER = READ_HEADER (0, .FCB); 
: 1798 781 2 D0 
3; 1799 7 ¢ BEGIN 
i 1800 ? HEADERCFH2SL_FILEOWNER] = .UIC; | 
: 1801 7 CHECKSUM (.HEADER); 
: 1802 785 MARK DIRTY (.HEADER); 
; 180 7 § HEADER = ere HEADER (. HEADER, .FCB); 
> 1804 7 FCB = .FCBCFCBSL_EXFCB); 
; 1805 788 
; 1308 789 UNTIL .HEADER EQL 0; 
: 1 790 
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; } Hf : If we chained to extension headers, reread the primary for further use. 
; 181 ? | 
; 181) 794 IF .FCB NEQ .ORG_FCB 
3% \§ 795 2 THEN e 
; 18) £38 BEGIN 
; 1814 79 HEADER = READ_HEADER (0, .ORG_FCB); 

3 } \ £38 END; | 
; ; H st ! Mark the new owner in the FCB. 
: 13 O¢ ¢ ORG_FCBLFCBSL_FILEOWNER] = .UIC; | 
; 1821 04 2 RETURN 1; 

_ ¢ 805 

3 % 806 END; ! end of routine CHANGE_OWNER 


~EXTRN EXESSEARCH_RIGHT 
~EXTRN CHARGE_QUOTA, NEXT_HEADER 


OBFC 00000 .ENTRY HANGE_OWNER, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 2620 

58 0284 CA 9E 0000 MOVAB 644(BASE), RB + 2675 

rT 08 AC DO 0000 MOVL ORG_FCB, > 2693 

58 58 a6 DO 00008 MOVL 88(FCB), ORG_FILE_OWNER 3: 2694 

04 AC 5B D1 OOOOF CMPL ORG_FILE_OWNER, UTC + 2696 
03 12 00013 BNEQ 1$ ~ : 
0oFS 31 00015 BRW 14$ : 

50 90 AA DO 00018 1$ MOVL =-112(BASE), RO : 2705 
53 58 Aad DO O00IC MOVL 88(RO), ARB : 

54 20 A 4 00020 MOVAB 32(R3), RIGHTS_DESC > 2706 

59 01 DO 00024 MOVL #1, STATUS 1 > 2711 

58 38 §=6A3 D1 00027 CMPL 56(ARB), ORG_FILE_OWNER : 2712 
12 13 00028 BEQL 86-38 : 

52 5B DO 00020 MOVL  ORG_FILE_OWNER, R2 + 2713 
000000006 00 16 00030 JSB EXESSEARCH_RIGHT F 
04 50 €9 000 BLBC ~=_«aRO, 2$$ : 

02 04 Al £8 00039 BLBS § 4({D FOUND), 3$ > 2715 

59 D4 000 3: CLRL STATOS_1 : 277 

57 01 DO 99 F 3$: MOVL #1, STATUS 2 > 2721 

04 AC 38 A} D1 00 ae CMPL 56(ARB), UTC : 2722 
13 «1 904 BEQL «=s«OS$ : 

52 04 Ac DO 00049 MOVL UIC, R2 : 2723 
000000006 00 1 9040 JSB EXESSEARCH_RIGHT : 
04 E9 00 3 BLBC =—E.-s«&RO,_ 4S F 

02 06 Al £8 99 6 BLBS  4({D FOUND), 5$ > 2724 

57 D4 A 4$: CLRL = STATOS_ : 2726 

03 33 £9 C 5$: BLBC STATUS“1, 6$ > 2736 
2 7 €E F BLBS § STATUS~2, 8$ F 

22 6 ic E 62 6$: BBS r 8. (R85, 8S : 2739 

TE 6 1D E 66 BBS #29. (R28). BS > 2740 

1 c= 02 € A BBC #2, 4(RB). 7$ + 2741 

A A 3A COA 81 F CMPW 3 (ARB), 90(FCB) : 2742 
of é 4 NEQ $ ; 

06 ac 3a—COAS iB 76 CMPW  S8(ARB), UIC+2 > 2743 


15 
RWATTR 1b-Se -1984 04:1 VAX=-11 Bliss-32 V4.0-742 Page 
v04=000 1a-Sep-19 4 Ps Tee DISKSVMSMASTER:CFIIX.SRCIRWATIR.B32:1 > 
07 1 78 BNEQ 7 : 
CO. BF 38 as ? 3 118 FS cane). #192 : 
50 4 p60 4 7$: MOvL #36, RO : 
52 38 a6 09 8$: MOVL 56(FCB), SIZE : 
0c 6A 1 E - BBs #27, (BASE), 10$ : 
56 0c AB OD 9 MOVL oat ce), FCB : 
F8 1 0 BNEQ : 
58 08 AC 00 0009 MOVL ORG_FCB, FCB : 
52 D 999¢ 10$:  TSTL S1ZE : 
1 1 Q 1 : 
9 DD 000A PUSHL #3 ; 
DD 000A PUSHL SIZE ; 
04 AC DD 000A4 PUSHL ulc ; 
00006 CF FB OOOA7 CALLS #3, CHARGE_QUOTA : 
: DD OOOAC PUSHL #2 : 
7E CE OOOAE MNEGL SIZE, -(SP) : 
38 DD 00081 PUSHL ORG_FILE_OWNER : 
00006 gf 03 FB 00083 CALLS #3, CHARGE_QUOTA : 
2 Oc AC 00 000BB8 11$:  MOVL #ORG_HEADER; HEADER ; 
OC 12 0008C BNEG 12$ : 
56 DD 0008 PUSHL FCB : 
7E 04 000C CLRL. = (SP) : 
00006 cr 08 FB 000C CALLS #2, READ_HEADER : 
2 50 pO 000C¢ MOVL RO, HEA ; 
3c A 04 AC DO OOOCA 12$: MOVL UIC, 60(HEADER) : 
52 DD OOOCF PUSHL ; 
00006 CF 01 FB 00001 CALLS #1, CHECKSUM : 
52 DD 00006 PUSHL HEADER : 
00006 CF 01 FB 00008 CALLS #1, MARK_DIRTY : 
0044 8F BB 000DD PUSHR #*M<R2,R6> : 
00006 CF 02 FB 000E1 CALLS #2, NEXT_HEADER ; 
52 50 D0 000E6 MOVL RO, HEADER : 
56 0C A6 00 000E9 MOVL  12(FCB), FCB : 
32 D5 OO0ED TSTL HEADER ; 
D9 «12 QO0EF BNEQG 12$ : 
08 Ac 56 D1 OOOF1 CMPL FCB, ORG_FCB ; 
0d 13 000F5 BEQL 13$ : 
08 AC OD 000F7 PUSHL ORG_FCB : 
7E D4 OOOFA CLRL. = ; 
00006 CF Q FB OOOFC CALLS 2, READ_HEADER : 
38 D 90191 MOVL RO. HEADER : 
5 08 AC 00 00104 13$: MOVL $ORG_FCB, RO : 
58 A0 04 aC 00 00108 MOVL  UIC> 88(RO) : 
5 01 DO 0010D 146%: MOVL #1, RO ; 
04 00110 RET : 


; Routine Size: 273 bytes, Routine Base: $CODES + OCED 


e. 


K 15 | 
RWATTR 16-Sep-1984 01:04:17 VAX=11 Bliss<-32 V4.0-742 Page 56 
v04-000 We8eb-13ks 12:80:45 — DISKSVMGMASTERSEF TIX. SRCIRWATIR.B32:1°%° (OS. 
3 } 5 of ! ROUTINE CHANGE CLASS (HEADER, CLASS_BLOCK) : L_NORM = 
51 5 1! | 
:1 8 10 1: 
3 ; ! ! FUNCTIONAL DESCRIPTION: | 
; 1831 131! This routine changes the close] feet ten of the file. It checks to 
3 1 ¢ 3 1! make sure that the new gloss fication is a subset of the old (unless 
; 3 19 7! UPGRADE or DOWNGRAD pr vileges are used), and that the new 
3 : ¢ i$ ; } classification is within the bounds of the requestors authorization. | 
:1 1B | i CALLING SEQUENCE: 
3 ; 3 : } CHANGE _CLASS (ARG1, ARG2) | 
> 1839 ; 1 1 | INPUT PARAMETERS: 
; 1840 § 1! ARG1: address of file header 
: : 1 8 Z : } ARG2: new classification block 
: 1848 858 1 | IMPLICIT INPUTS: 
3: 1844 8 $ 1! none 
> 1845 827 1! 
; ie 828 1 |! OUTPUT PARAMETERS: 
i oe ae 
> 1849 831 1! IMPLICIT OUTPUTS: 
ioe ae | 
3 1826 834 1 ! ROUTINE VALUE: 
Het ee oe Fle | 
: 1855 837 | i SIDE EFFECTS: ; | 
3 1338 $34 : : Primary file header modified and FCB updated with new classification. | 
: 1858 840 1 i-= | 
3; 1859 841 1 
i 1369 stg BEGIN 
:1 844 
3 1868 845 HEADER : REF BBLOCK, ! file header arg : 
3 H ¥¢3 548 CLASS_BLOCK : REF BBLOCK; ! Address of new classification block 
; 1866 B48 LINKAGE | 
3 7 9 L_CHECKCLASS = JSB (REGISTER = 2, REGISTER = 3, 
3 1 $20 REGISTER = 4, REGISTER = 5, REGISTER = 6; 
> 1869 51 REGISTER = 1) 
; 1870 $26 NOTUSED (7, 8, 9, 10,11); 
3; 1871 5 
3 7 Le 54 LOCAL 9 
3 187 55 STATUS, ' result of protection check | 
: 1874 $29 PHD : REF BBLOCK, : PHD address 
: : a o2 FCB : REF BBLOCK; ' FCB of current header, if any | 
: 7 39 BIND_COMMON; 
1879 1 9 EXTERNAL ; | 
; Ht B66 CTLSGL_PHD : ADDRESSING_MODE (GENERAL); ! PHD pointer 


RWATTR 18-50 Sep-1984 VAX-11 Bliss-32 V4.0-742 57. 
| ¥06-000 et 93: S34 Disk KSVMSMASTER: CF11X.SRCIRWATTR.B32; (29 * 3) 
3 EXTERNAL ROUTINE | 
LOCK_ COUNT : ' determine if eiper locks exist 
EXESCHECKCLASS : t “CHECK CLASS ADDRESSING RODE (6 NERAL); 
5 ! Classiffcation chaenied routine 


! Check to make sure that the file is not open. Changing the classification 
of an open file (either upwards or downwards) creates a storage channel. 


FCB = .PRIMARY 
IF .FCBCFCBSW REFCAT? N 

OR LOCK COUNT ( CPCB EF eBSL _ACCLKID]) NEQ 1 
THEN RETURN7SSS_ACCONFLICT; | 


Check to see if there is a classification block in the file header. 


00.0000 09 090000 
BRAWLS 


S33 


98 

$90 
IF .HEADERCFH2$8_]1 oor SET] 

901 LEQU ($BY TeOFFSer FH2$R_CLASS_PROT) + FH2$S_CLASS_PROT) / 2 
308 THEN RETURN 1; 
o5e There is. Check the old versus the new classification. 
906 
907 STATUS = EXESCHECKCLASS (LOCAL_ARBCARB$Q_PRIVI], her WRITE, 
os HEADERCFH2$R_CLASS _PROT , »CCASS BLOCK, -CLASS_BLOCK); 


ASS B PHOSR “MIN_CLAS | 
BADEPHOSR. hak reat SS): | 
| 


1 ' Now insure that the new classification is within the accessor's authorized 

; bounds. 
1 

1 PHD = .CTL.SGL_PHD; 

1 89 

1 IF .STATUS THEN 

; STATUS = EXESCHECKCLASS (LOCAL woe afl CHPSM wee - CHPSM_WRITE, 

1 


Finally check the new classification against the Limits of the volume. 


FUN" OOONOUES WN oO 


IF .STATUS THEN 
STATUS = EXESCHECKCLASS (LOCAL anoranesa PRIV], CHPSM_READ OR CHPSM_WRITE, 
ASS_BLO CORRENT -VCBLVCBSR _MIN_CLASSJ> 
CURRENT_ VeOLWCESR _MAX_CLASS)); 


BYPASS privilege overrides any protection failures. 


SSeeS PON SSaTeSFON SS 


IF NOT .STATUS 
AND NOT .BBLOCK Soe ~ARBCARBS$Q _PRIV], PRVSV_BYPASS] 
THEN RETURN SS$_NOPRIV 


! The classification check has passed. Save the new classification in the 
file header. 


AW 


aber run CONOW 


Be Oe Be Se Se Se Se Ge Se Fe Se Ge Be Be Oe Se Ge Se Se Ge Ge Se Fe Se SHS Se we BH oe Se SHH Se SH Ss Oe Ss OSH Oe OH Se Se Se Se OH Seas ee SESH Se Sees Ses 
ee ee a a ee el a a ee ee el a ee el a ce el cl lt el el cl ee el cl ee el ll el lt el el el cl el all al ll cl lt ll alt ll 


DOODODOOOVO DODO OOOODODODODOODODOODODN0NO0O 


OOOOOOOOOONO 
ee ss a ss ee 


SOOONOUE WO 


<Zz 


Re Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se Se Se Se Se ee ase 


25 
Ss 


; 1939 921 
: 1940 9 ¢ 
: 1941 .] 

3 1328 924 
: 194 925 
3; 1944 9 § 
3; 1945 9 

; 18 S 8 
3: 194 9 

: 1948 9350 
3 1949 931 


58 
0088 


M15 
16-Sep-1984 01:04:17 VAX-11 Bliss-32 V4 
12-88-1382 9: bias DISKSVMSMASTER:(CF1 


CHSMOVE (FH2$S_CLASS_PROT, .CLASS_BLOCK, HEADERCFH2$R_CLASS_PROT)); 
Now move the new classification block to the FCB. 


1X. 


CHSMOVE (FH2SS_CLASS_PROT, .CLASS_BLOCK, FCBEFCBSR MIN CLASS PROT) ; 
CHSMOVE (FHOSS-CLASS_PROT, .CLASS-BLOCK, FCBLFCBSR~MAX-CLASS-PROTJ): 
1 
END; ! end of routine CHANGE_CLASS 
.EXTRN CTLSGL_PHD, LOCK_COUNT 
~EXTRN EXESCHECKCLASS 
O1FC 00000 CHANGE_CLASS: 
<WORD Save R2,R3,R4,R5,R6,R7,R8 
58 000000006 00 9€ 9900 MOVAB EXESCHECKCLASS, R8 
5 0284 CA 9E 0000 MOVAB 644(BASE), R2 
AA DO 0000E MOVL (BASE), FCB 
18 A7 BS 000° TSTW 4 (FCB) 
0D 12 00015 BNEQ si 
48 AZ DD 00017 PUSHL 72(FCB) 
00006 cr 01 FB OOO1A CALLS #1, LOCK_COUNT 
1 50 D1 OO01F CMPL ~=sRO.. #1 
06 13 00022 BEQL 2$ 
50 0800 8F 3C 00024 1$: MOVZWL #2048, RO 
04 00029 RET 
36 06 Bc 91 999 A 28: CMPB  §@HEADER, #54 
74 1B 000 ; BLEQU 5$ 
54 04 ac 00000058 8F C1 900 ADDL3 #88, HEADER, R4 
56 08 ac 0b0 0039 MOVL  CLASS_BLOCK. R6 
55 08 AC 00 00030 MOVL  CLASS~BLOCK. R5 
53 08 DO 00041 MOVL #2, R 
68 16 00044 JSB EXESCHECKCLASS 
51 000000006 00 DO 00046 MOVL  CTLSGL_PHD, PHD 
34 50 9 90040 BLBC STATUS; 
T3 0128 C1 SE 9050 MOVAB  296(PHD), R6 
55 0114 ¢1 9E 0005 MOVAB 276(PHD). R5 
54 0 AC DO O005A MOVL CLASS BLOCK, R4 
53 03 D0 0005E MOVL #3, R 
68 if 906) JSB EXESCHECKCLASS 
1€ E 6 BLBC_ STATUS, 
56 98 AA 00000008 Hi C1 9066 ADDL3 #216, -104(BASE), R6 
55 98 AA 000000C4 8F C1 O6F ADDL3 #196. -104(BASE). R5 
54 08 ac 00 00078 MOVL  CLASS_BLOCK, R4& 
53 03 dO 0007¢ MOVL #3, R 
: 1 7F JSB EXESCHECKCLASS 
08 0 €8 00081 BLBS TATUS, 4$ 
04 $2 iD E 3$ BBS a9. (R2), 4$ 
24 p 0 MOVL #36. RO 
4 RET 
50 04 Ac 4$ MOVL. HEADER, RO 
9 08 BC 14 mMOVC3) # 0. aCLASS_BLOCK, 88(RO) 
C 8 BC 14 096 MOVC3 #20, @CLASS"BLOCK. 136(FCB) 


.0-74 
X.SR 


58. 
(9) 


RATT b-Sen-1984 VAX=11_BLiss-32_V4,0-742 59 
vO4~000 1e-Sep-19B6 12:80:65 DISKSVMSMASTERSCFTIX-SRCIRUATIR.B32;1°9° (9). 


009¢ = ¢? 08 14 28 00090 MOVC3 #20, @CLASS_BLOCK, 156(FCB) > 2928 

8 01 60 es 5$: MOVL a RO : 3 3339 

4 RET 

; Routine Size: 168 bytes, Routine Base: SCODES + ODFE 

; 1950 +] ; 1 

; 1951 9 1 END 

3; 1982 9 0 ELUDOM 

| 

| 

| 

; PSECT SUMMARY | 

; Name Bytes Attributes 

; SCODES 3750 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 

| 

: Library Statistics 
Tn Pe OR) pe ee ee Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

:  _$255$DUA28:CSYSLIBILIB.L32;1 18619 181 0 1000 00:02.0 | 

: COMMAND QUALIFIERS | 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RWATTR/OBJ=OBJ$S:RWATTR MSRC$:RWATTR/UPDATE=(ENHS$:RWATTR) 


3 Size am s36) coge + 389 data bytes 

5 dhe Time: F 28. 

3; Lines/CPU Min: 1560 

3 Lexenes/CPU-Rin: 39766 
5 senety Used: 536 pages | 
; Compilation Complete 
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